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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
ALLOC - ALLOC ~ ALLOCATION MODULE 


.INSERT AsS.ASM 


©.REMARK / 

© 


© 

*H* * *8* 

© 


© 


© 

& 

© 

•ft 

© 

•8* 

© 

•8* 

© 

■fr 

© 


© 



© "WHEN YOU CARE ENOUGH TO PROGRAM 

© THE VERY BEST" 

© 

© ZGRASS V2. OOOOOOOO. 

©BY .JAY FENTON» NOLA DONATO, AND TOM DEFANTI 
© (C) 1978 

© 

©/ 

.INSERT As MAC.ASM 

© 

.INSERT AsZRAM.ASM 
.LINK 

.IDENT ALLOC 
. PREL 

.EXTERN ERRPGM 
.INTERN ALLOC 
.INTERN ALLOCD 
.INTERN CGRCHK 
.INTERIM COR INI 
.INTERN DIV16 
.INTERN FREE 
.INTERN FREE ALL. 

0003 N.LNK = UNLINK* . 


3 

; in Vi 6 ■ 

5 DIVIDES HL BY 16 
5 CLOBBERS THE ACCUMULATOR! 

It 


0000" 


DIV16S 



0000 

7D 

MOV 

A, L 

5 A—LOW ORDER 

0001 " 

CB3C 

SRLR 

H 

;H=HI ORDER 

0003" 

IF 

RAR 



0004"' 

CB3C 

SRLR 

H 


0006"' 

IF 

RAR 



0007" 

CB3C 

SRLR 

H 


0009" 

IF 

RAR 



000A ’" 

CB3C 

SRLR 

H 


OOOC 

IF 

RAR 



OOOD" 

6F 

MOV 

L, A 






TDL ZSO 
ALLOC - 


CODE-' 


00 OF •" 
OOOF •" 
0010" 
0011" 
0012 -' 

0014 •" 
0016-' 
0017" 
0018"' 
0019-' 
001A •" 
001B -' 
001C ■" 
00 ID-' 
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C9 RET 

9 

5 CHAIN 

5 CHAINS THE GIVEN BLOCK AFTER ANOTHER BLOCK IN A 
? CIRCULAR LINKED LIST 


5 NEEDSs 

5 HL -> BLOCK AFTER WHICH NEW BLOCK GOES 
; DE -> MEW BLOCK TO BE CHAINED IN 

? THE ABOVE REGISTERS POINT TO THE FORWARD POINTER 
,* OF THEIR RESPECTIVE BLOCKS, THEY ARE ASSUMED 
5 TO BE 2-BYTE ADDRESSES 

II 

* 

5 RETURNSs 

? HL ~> NEW BLOCK (JUST CHAINED IN) 

? DE IS DESTROYED, DOES NOT CHANGE A OR Z&C BITS 


? LOGICS 

? FWD(DE) “ FWD(HL) 

; FWD(HL) = DE 

M 

7 

5 ON ENTRYs 

5 - HL-^-##*#*—>a-a-aaa-—>? DE—>aa-#a-a- 

; a A a- a- B a- a C a- 



« 

9 

aaaaa 



aaaaa 


9 

; on 

EXITS 





7 

•a- aaaa ~ 

—J:* •#* •&•&*•#•#*"*“- 

->***Hfr*- 

->? 


7 

a A a 

•«* c * 

* B # 



» 

7 

« 

9 

aaaaa 

&&&&& 




«____, 

7 

CHAIN 

« 




C5 


PUSH 

B 


5LDI USES IT 

D5 


PUSH 

D 



E5 


PUSH 

H 


S SAVE A PTR 

EDAO 


LDI 



?(DE) = (HL) FOR 

EDAO 


LDI 



5 FWD(G) = FWD(A) 

El 


POP 

H 


? DE—>C 

D1 


POP 

D 


? HL->A 

73 


MOV 

M, E 


?(HL) = DE 

23 


INX 

H 



72 


MOV 

M, Ei 


" FWD(A) = C 

EB 


XCHG 



,“HL->NEW BLOCK C 

Cl 


POP 

B 



C9 


RET 





• —}—|—|— -*|— 

M 

7 . : \ : -;-0 . ; • 

5 DECHAIN 

? CHAINS THE SPECIFIED BLOCK OUT OF A CIRCULAR 
5 LINKED LIST, DOES NOT CHECK IF IT IS CHAINING 
5 OUT THE HEADER 


2 BYTE 
CEO 


9 


NEEDS 
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3 HL -> BLOCK BEFORE BLOCK TO BE CHAINED OUT 

3 (PREDECESSOR) 

0 

5 RETURNSs 

; HL -> BLOCK CHAINED OUT 

5 DOES NOT CHANGE A OR Z?<C BITS 

» 

7 

5 IT IS ASSUMED THAT THE FORWARD POINTER TO THE 
5 GIVEN BLOCK POINTS TO THE FORWARD POINTER OF THE 
5 BLOCK TO BE CHAINED OUT 
3 ON ENTRY: 

; HL—>**•«•**—>**#*•«—>•»••«•#■«•* 

5 * A # * B # * C # 

5 -H-* tt-H-H-K-H- 


U 

3 ON EXITS 




- #•***#-j 

•*Rt *** 

HL— 



S # ft # 

* B «■ 

* C * 



$ 

n 

7 


■h-jhmh* 

001E 


U . : . .. 

DECHAIN: 



001E 

C5 

PUSH 

B 

3LDI USES IT 

00 IF-' 

D5 

PUSH 

D 


0020 

5E 

MOV 

EVM 

5 DE = FWD(HL) 

0021 

23 

INX 

H 


0022 

56 

MOV 

D,M 


0023 •" 

2B 

DCX 

H 

5 HL—>A AGAIN 

0024 •" 

EB 

XCHG 


i.HL—>B» DE->A 

0025 

E5 

PUSH 

H 


0026" 

EDAO 

LDI 


5(DE) = (HL) FOR 2 BYTE 

0028 •" 

EDAO 

LDI 


5 FWD< A) = FWD(B) 

002A •" 

El 

POP 

H 

3 HL~>B (LINKED OUT) 

002B •" 

D1 

POP 

D 


002C ■" 

Cl 

POP 

B 


002D ■" 

C9 

RET 






5 ALLOC 

3 ALLOCATES A BLOCK (LARGEST OR GIVEN SIZE) OF 
3 MEMORY FROM THE FREE LIST 

n 

7 ■ 

5 NEEDS s 

5 A = NUMBER OF BLOCKS TO ALLOCATE (0-254 ~> 1-255) 
5 IF -1, ALLOCATE THE LARGEST BLOCK 



RETURNSs 

HL—>TOF‘ OF NEW BLOCK 
BC = SIZE (IN BYTES) 
HL~>********f- 

* 0 * TYPE 


* 1-255 * SIZE 


OF NEW BLOCH 


* * REST OF BLOCK 




(O-BASED) 
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5 ERRORSs 


COR - OUT OF 

MEMORY 


LOOKS LIKES 



FREELST 



•if *8* -ft* *if *if *if *if -if •$$* 

•if*if*if*if*if , if •&*•&•& 

•if o if 

* 0 

•if 

# o # 

* SIZE 

•if 

•jfPTR TO #—--- 

->*PTR TO 

•if— 

♦LARGEST* 

♦NEXT 

•if 


•if-if-if if if if-if## 


; THE FREE LIST IS MAINTAINED AS A CIRCULAR 
? LINKED LIST OF FREE CHUNKS SORTED BY SIZE 
5 (LARGEST FIRST)„ WHEN IT IS EMPTY, THE LISTHEAD 
5 POINTS TO IT'S OWN FORWARD POINTER 


002E •" ALLOCs 

002E D5 PUSH D 

5 + 

5 WE POINT HL AT THE LISTHEAD FORWARD PTR. THIS IS 
? THE PREDECESSOR TO THE BLOCK TO ALLOCATE FOR UNKNOWN 
? SIZE ALLOCATION AND THE STARTING PREDECESSOR FOR 
5 THE LIST SCAN FOR UNKNOWN SIZE ALLOCATION. IF A 
5 IS -1, WE ALLOCATE THE LARGEST (FIRST IN THE LIST) 


002F •' 

21 65E5 

LX I 

H,FREELST 

,“ HL->FREE LISTHEAD 

0032 *** 

■£n 

I NX 

H 

;HL~>TYPE FIELD 

0033 •** 

32 

INX 

H 

? HL-OFORWARD PTR 

0034 

E5 

PUSH 

H 

? SP->PRECECESSOR PTR 

0035 **' 

5E 

MOV 

E, M 

5 DE -> FIRST BLOCK 

0036*** 

oo 

INX 

H 

5 IN LIST, IN CASE 

0037'* 

56 

MOV 

D, M 

5 OF UNKNOWN SIZE 

0038 ***' 

2B 

DCX 

H 

? ALLOCATION 

0039 **’ 

3C 

I NR 

A 

? KNOWN SIZE? 

003A *’* 

47 

MOV 

B, A 

“ B=SIZE WE WANT 

003B > 

200B 

JRNZ 

. . A2 

3 YES? SEARCH LIST 

003D *** 

EB 

XCHG 


;hl->fwd PTR 

003E *** 

2B 

DCX 

H 

5HL->SIZE FIELD 

003F *** 

46 

MOV 

B, M 

5 B-SIZE OF BLOCK 

0040 *** 

1810 

JMPR 

. „ A4 



; + 

? SP ~> PTR TO THE PREDECESSOR OF CURRENT BLOCK 
* HL CURRENT BLOCK (PREVIOUS ONE LARGE ENOUGH) 

5 DE -> FOLLOWER (ONE JUST CHECKED FITS) 

? B = SIZE (IN BLOCKS) OF REQUEST 
5 WE MUST KEEP TRACK OF THE PREDECESSOR TO THE 
? CURRENT BLOCK FOR THE DECHAIN OPERATION (THIS IS 
5 A SINGLY LINKED LIST), HL POINTS TO THE BLOCK 
? WHICH IS A CANDIDATE FOR ALLOCATION. WHEN IT'S 
? FOLLOWER HAS A SIZE TOO SMALL THEN THIS BLOCK IS 

5 THE BEST FIT BLOCK. THE LIST IS SCANNED IN ORDER 

! UNTIL A BEST FIT IS FOUND, THE ORDER OF THE BLOCKS 
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3 ARE LARGEST FIRST 


0042- 

E3 

it « A1 « 

XTIHL 


3 PREDECESSOR = CURRENT 

0043- 

EB 


XCHG 


5 CURRENT = FOLLOWER 

0044- 

5E 


MOV 

E,M 

3 DE -> NEW FOLLOWER 

0045 - 

oo 


INX 

H 


0046*** 

56 


MOV 

D , M 


0047"* 

2B 


DCX 

H 

5 HL -> CURRENT 

0048- 

IB 

. . A2s 

DCX 

D 

5 DE -> SIZE OF FOLLOWER 

0049- 

1A 


LDAX 

D 

5 A=SI ZE OF FOLLOWER 




TST 

A 

3 END OF LIST?! 

004A" 

B7 

4* 

ORA 

A3 


004B- 

2804 


•JRZ 

. .A3 

5 YES? USE CURRENT ONE 

004D - 

B8 


CMP 

B 

3CURRENT TOO BIG? 

004E- 

13 


INX 

D 

5(DE) , WE LOOP AGAIN 

004F - 

30F1 


•JRNC 

n n A 1 

3(DE) >= B 



y « 

3 HL -> 

FORWARD 

POINTER 

OF BLOCK TO ALLOCATE 



3 SP. ~> 

POINTER 

TO PREDECESSOR OF CURRENT BLOCK 



5 A 5 

IZE (IN 

BLOCKS) ' 

TO ALLOCATE 



3 IT IS 

POSSIBLE THAT THE BLOCK WE FOUND IS ACTUALLY 



3 THE LISTHEAD, 

THAT IS 

THERE IS NO BLOCK WHICH 



3 IS LARGE ENOUGH FOR U 

SE (OR NO BLOCKS AT ALL). IF 



3 THE S 

IZE OF THE BLOCK 

ISO, ITS THE LISTHEAD, OUT 



3 OF MEMORY 



0051"‘ 

2B 

y 

« t. A -d» “ 

DCX 

H 

3HL~>SIZE OF NEW BLOCK 

0052"* 

5F 

. . A4s 

MOV 

E,M 

3 E = SIZE OF BLOCK 




TST 

E 

3 SIZE = 0?C 

0053"’ 

7B 

+.IFN E 


-A, C 

MOV A,E 3 

0054"' 

B7 

4 * 

ORA 

A3 





Z ERROR 

ER. COR 

3 YES? OUT OF CORE !L 

0055"* 

2004 

4 * 

JRNZ . . 

0001 


0057"* 

CD 0000s04 

4 -* 

CALL ERRPGM 


005A"* 

IB 

4 

.BYTE ER.COR 


005B"’ 


+..0001s 

3 



005B" 

78 


MOV 

A, B 

3 A = SIZE WE REQUESTED 



y 4 * 

5 HL -> 

SIZE FIELD OF BLOCK TO ALLOCATE 


3 A = SIZE (BLOCKS) WE REQUESTED 
3 E = SIZE (BLOCKS) WE ALLOCATED 
5 NOW WE COMPUTE THE NUMBER OF BLOCKS LEFT OVER 
3 IN THE BLOCK (AFTER WE ALLOCATE THE NUMBER REQUESTED) 
3 IF THERE ARE ANY, THIS FRAGMENT MUST BE RETURNED 
3 TO THE FREE LIST 


005C"‘ 

•yy 


MOV 

COM 

M, A 

3 SIZE = AMOUNT WANTED 
5 NEGATE # OF BLOCKS t 

005D"* 

2.F 

4 - 

CM A 



005E"’ 

3C 

4 

I NR 

A3 


005F "* 

83 


ADD 

E 

5 A = # BLOCKS OVER 

0060 "* 

5E 


MOV 

E, M 

3 E = BLOCKS ALLOCATED 


5 + 

5 A = NUMBER OF BLOCKS LEFT OVER 
3 DE = NUMBER OF BLOCKS ACTUALLY ALLOCATED 
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5 SP -> POINTER TO PREDECESSOR OF ALLOCATED BLOCK 
? WE MUST CONVERT THE BLOCK SIZE ALLOCATED TO A 




5 BYTE SIZE 

AND SAVE IN 

BC FOR THE USER. THEN THE 



5 BLOCK IS CHAINED OUT 

OF THE FREE LIST 

0061 

EB 

7 

XCHG 


* HL = BLOCK SIZE 



CLR 

HC 


0062 y 

2600 

+ .IFN H-A, C 

MV I 

H, 01C XRA A3 3 

0064“ 

29 

DAD 

H 

5 HL = BYTE SIZE 

0065"* 

29 

DAD 

H 

; H =■«• 16 

0066 •“ 

99 

DAD 

H 


0067;“ 

29 

DAD 

H 




MVD 

B,H 

5BC = BYTE SIZEE 

fN 

CO 

44 

+ MOV 

B, H 


0069“ 

4D 

+ MOV 

B+l, H 

+ 13 

006A "* 

El 

POP 

H 

5HL -> PREDECESSOR 

006B “' 

CD 001E“ 

CALL 

tt „L 

DECHAIN 

5 OUT OF FREE LIST 



7 r 

1 A = NUMBER 

LEFT OVER 

(CC*“S STILL SET AT THIS POINT) 



S HL -> TOP 

OF CURRENT 

BLOCK ALLOCATED 



5 WE CHAINED 

THE CURRENT BLOCK OUT OF THE LIST, 


? NOW WE GARBAGE COLLECT THE FRAGMENT (IF ANY) 

5 THE BYTE SIZE IS ADDED TO THE POINTER TO GET THE 
5 ADDRESS OF THE SIZE FIELD OF THE FRAGMENT 


006E“ 

2809 

y — 

■JRZ 

. .EX 

■NO FRAGMENT? RETURN 

0070“ 

E5 


PUSH 

H 

5 SAVE OUR ADDR 

0071“ 

09 


DAD 

B 

SHL -> FRAGMENT SIZE 

0072“ 

2B 


DCX 

H 

? HL -> SIZE FIELD 

0073 •“ 

77 


MOV 

M, A 

? SIZE = # BLOCKS OVER 

0074“' 

2B 


DCX 

H 

SHL -> TOP OF BLOCK 

0075 

CD 00AD 


CALL 

FREE 

? FREE FRAGMENT 

0078 •“ 

El 


POP 

H 

? HL~>BLOCK ALLOCD 

0079 

2B 

. .EXs 

DCX 

H 

5 HL~>SIZE 

007A" 

2B 


DCX 

H 

5 HL~>TOP 

007B 

D1 


POP 

D 

? RETURN 

007C“ 

C9 

. -M-++ 

RET 




5 CHKREC 

5 CHECKS IF THE GIVEN BLOCKS CAN BE RECOMBINED . 

5 AND RETURNS NEW SIZE IF SO 
» 

7 ' ' 

5 NEEDS s 

", HL -> SIZE FIELD OF BLOCK TO BE ADDED TO 

? DE -> SIZE FIELD OF BLOCK TO BE RECOMBINED WITH 

n 

7 

", RETURNS5 

? IF RECOMBINATION IS POSSIBLES 

", A = COMBINED SIZE OF MEW BLOCK (1-255) 

? CC •" S CLEAR 

ELSE C BIT SET, A DESTROYED 

» 

7 - -■ . * - : 

5 ON ENTRY“ 
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* # 

* SIZE B * 

... * 

3 CHKREC DOES NOT MODIFY ANY FIELDS, CHECKS TO SEE 
5 IF THE BLOCK DE POINTS AT DIRECTLY FOLLOWS THE 
3 BLOCK HL POINTS AT IN MEMORY (THAT IS, IT CHECKS 
5 IF HL + SIZE A = DE (DOES NOT CHECK IF DE + SIZE B 
3 = HL) 


5 * ... * 

5 HL—>* SIZE A * 

3 * . . . * 

3 


007D" 


CHKRECs 



007D **’ 

E5 

PUSH 

H 

3 SAVE OUR REGS 

007E" 

ps 

RUSH 

n J. 

D 




7 -T . 

5 IF HL + (DE) 

= DE THEN THE BL 

OCK DE POINTS AT 



3 DIRECTLY FOLLOWS THE BLOCK HL 

POINTS AT AND THEY 



3 CAN BE PHYSICALLY RECOMBINED 


007F 

5E 

7 

MOV 

E,M 

5 BE=SIZE OF BLOCK A 



CLR 

DC 


0080- 

1600 

+.IFN D-A, C 

MVI D,QIC 

XRA A3 1 

0082- 

EB 

XCHG 



0083-' 

29 

DAD 

H 

3 CONVERT FROM BLOCK 

0084 

29 

DAD 

H 

5 SIZE TO BYTE SIZE 

0085-' 

29 

DAD 

H 


0086 •- 

29 

DAD 

H 


0087 •" 

EB 

XCHG 



0088 x 

19 

DAD 

D 

5 HL -> END OF BLOCK A 

0089 •- 

D1 

POP 

D 

5 DE -> SIZE OF BLOCK B 

008A-' 

7A 

MOV 

A ? D 

3 IF HL = DE THEN BLOCK ! 

008B -' 

BC 

CMP 

H 

5 FOLLOWS BLOCK A AND 

008C -' 

C2 00A A •" 

JNZ 

..ERR 

3 THEY CAN BE RECOMBINED 

008F-" 

7B 

MOV 

A, E 


0090" 

BD 

CMP 

L 


0091 -' 

2017 

JRNZ 

. . ERR 




; +• 




5 WE KNOW THEY CAN BE RECOMBINED PHYSICALLY BUT SINCE 
3 THE SIZE IS ONLY ONE BYTE IT IS POSSIBLE THE SUM OF 
5 THEIR SIZES WILL BE TOO BIG TO FIT IN 1 BYTE AND 
3 THEN WE CAN'T RECOMBINE THEM. ALSO SIZES OVER 
5 THE LIMIT OF MAXFRG ARE ILLEGAL 


•? 


0093 -' 

El 

POP- 

H 

0094 " 

E5 

PUSH 

H 

0095 -' 

D5 

PUSH 

D 

0096 •" 

1A 

LDAX 

D 



CLR 

D 

0097" 

1600 

+.IFN D 

“At 



XRA A3 3 


0099 •" 

5E 

MOV 

EtM 

009A •" 

62 

MOV 

H, D 

009B 

6F 

MOV 

L 7 A 


5 HL -> SIZE OF BLOCK A 
5 SAVE I T 

SAND SAVE SIZE OF B 
■ SAVE BLOCK B SIZE 
3 DE = SIZE OF BLOCK AC 
D , 0! C 


= SIZE OF BLOCK B 


3 HL 






TDL Z80 

CP/M DISK 

: ASSEMBLER VER 

SION 2„ 

*71 

<w a. 

PAGE 8 

ALLOC - 

ALLOC - 

ALLOCATION MODULE 



009C •" 

19 


DAD 

D 

?HL = SIZE A + SIZE B 

009D •" 

D1 

S ‘ 

POP 

D 

5D OFF STACK 




TST 

H 

* IF H != 0,SIZEC 

009E •- 

7C 

-KIFN H 


-A, C MOV 

A, H 3 

009F 

B7 

4* 

ORA 

A3 


OOAO" 

2008 


JRNZ 

..ERR 

?IS TOO BIG 

00 A2 

7D 


MOV 

A, L 

§ A = SIZE A + SIZE B 

00 A3" 

FE41 


CPI 

MAXFRG+1 

* SIZE > MAXFRG? 

00A5 " 

3003 


JRNC 

. .ERR 

5 FAIL THEN 




CLC 


5 SUCCEED! 

G0A7 •" 

B7 

4* 

ORA 

A3 


00 A8 

El 


POP 

H 


00A9 

C9 


RET 



OOAA" 

El 

w u ERR n 

POP 

H 


OOAB" 

oy 


STC 



OOAC 

C9 

« -h-h-h-h 

5 FREE 

RET 




S RETURNS A BLOCK OF MEMORY TO THE FREE-CORE LIST, 

5 CAM BE USED AGAIN IF A CALL TO ALLOC IS DONE 

t* , 

V 

? NEEDSs 

? HL ~> TOP OF BLOCK TO BE RETURNED 

; 

? *'TYPE * 0 FOR FREE BLOCKS 

■ a- SIZE * 1-255 (# OF 16 BYTE BLOCKS) 

? * » 

" 

S RETURNS5 
; SUCCEEDS 

tt 

5 SUCCEEDS IF BLOCK COULD BE RETURNED TO FREE LIST 


OOAD" 

GOAD’ 7L 
OOAE-’ B5 
00 AF28! 
GOBI" E5 


FAILS 

CARRY BIT SET, FAILS IF THE PTR TO BLOCK 
TO FREE WAS 0 UPON ENTRY (CANNOT FREE 0) 


? CALLS s 

? CHKREC - CHECKS FOR RECOMBINATION 
CHAIN, DECHAIN - LIST MANAGEMENT 


? THE FREE-CORE LIST IS A CIRCULAR LINKED LIST SORTED 
5 BY SIZE (LARGEST FIRST) WHEN A BLOCK IS FREED, 

? IT MAY BE RECOMBINED WITH THE BLOCK BEFORE OR 
5 AFTER IT IN PHYSICAL MEMORY IF THE SUM OF THEIR 

5 SIZES IS NOT GREATER THAN 254 (SEE CHKREC,ALLOC) 

« 

V 


FREES 

MOV 
ORA 
JR Z 
PUSH 


A, H 

Ly- 


FAIL 


IF HL = O, FAIL 

SAVE ALL REGS 


H 
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00B2 •' 

D5 


PUSH 

D 


00B3-' 

C5 


PUSH 

B 





CLR 

M 

5 CLEAR TYPEC 

00B4 " 

3600 

+ .IFN M 


-A, L MVI 

M , OK 



XRA 

All 



00B6 

23 


I NX 

H 

5 HL -> SIZE OF BLOCK 

00B7" 

EB 


XCHG 


;DE -> TOP OF BLOCK 

COBS'" 

21 65 

E5 .. ,'FOs 

LXI 

H»FREELST 

5 HL -> LISTHEAD 

OOBB" 

23 


INX 

H 

5 HL -> SIZE OF LISTHEAD 



* 1 

? BC -> 

FWD PTR 

OF PREDECESSOR 

(BLOCK BEFORE 



? CURRENT BLOCK 

IN LIST) 




; HL ~> 

SIZE OF 

CURRENT BLOCK . 

JUST CHECKED 



? DE -> 

SIZE OF 

BLOCK TO FREE 




5 WE NOW GET THE NEXT BLOCK IN 

THE LIST TO CHECK i 



5 WE MU 

ST SAVE 

THE ADDRESS OF 

THE OLD BLOCK 



? (PREDECESSOR) 

. WE CHECK RECOMBINATION IN THIS 



5 LOOP 

(BOTH KINDS) IF A BLOCK 

MUST BE RECOMBINED 



; IT IS 

PULLED 

OUT OF THE LIST 

AND FREE IS CALLED 



; AGAIN 

R 

TO PLACE IT PROPERLY 


ODBC'' 

23 

7 

. .Fls 

INX 

H 

7 HL -> FWD PTR 




MVD 

Bi H 

"BC = OLD BLOCK'S ADDRC 

OOBD 

44 

+ 

MOV 

B,H 


00 BE'" 

4D 

+ 

MOV 

B+l 3 H 

+13 

OOBF-" 

D5 


PUSH 

D 

iSAVE NEW BLOCK PTR 

OOCO 

5E 


MOV 

E 7 M 

”DE -> NEXT BLOCK 

OOC1 

2 3 


INX 

H 


00C2 

56 


MOV 

D,M 


00C3 •" 

EB 


XCHG 


? HL -> FP OF NEXT BLK 

00C4 •' 

D1 


POP 

D 

? DE ~> NEW BLOCK 

00C5 •" 

2B 


DCX 

H 

? HL -> SIZE OF FOLLOWER 




TST 

M 

? A=SIZE, 0? L 

00C6 •' 

7E 

+ „IFN M 


-A, Z MOV 

A, M 3 

00C7-" 

B7 

+ 

ORA 

AI 


00C8" 

2818 

? + 

? BC -> 

JRZ 

. F 6 

5NOW TRY TO INSERT IT 



FWD PTR 

OF PREDECESSOR 

BLOCK 



? HL_ -> 

SIZE OF 

CURRENT BLOCK 



5 IF THE 2 BLOCKS CAN BE RECOMBINED CCHKREC TELLS 
? US THIS) THEN WE TAKE THE CURRENT BLOCK OUT OF 
? THE LIST AND PUT THE NEW COMBINED BLOCK BACK 
? IN ITS PROPER PLACE (THE LIST IS SORTED BY SIZE 
5 SO IT IS VERY LIKELY THAT IT WILL GO FURTHER BACK) 


7 


OOC A •' 

CD 007D" 


L-ALL 

CHKREC 

5 CAN WE RECOMBINE? 

OOCD ' 

380A 


■JRC 

B » Fi 

* NO? CHECK OTHER WAY 

OOCF ' 

77 


MOV 

M, A 

? SAVE NEW SIZE 

OODO ■" 

E5 


PUSH 

H 

? SAVE CURRENT PTR 




MVD 

H 7 B 

; HL. -> FP OF PRED.C 

OOD1 " 

60 

4 * 

MOV 

H,B 


00D2 

69 

-h 

MOV 

H+1 7 B 

+ 13 

00D3 •' 

CD 00IE" 


CALL 

DECHAIN 

i PUT IT BACK 

00D6" 

D1 


POP 

D 

5 DE~>BLOCK TO FREE 

00D7 ■" 

18DF 


JMPR 

„ . FO 

?WHERE IT BELONGS 
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ALLOC - ALLOC ~ ALLOCATION MODULE 


5 HL -> SIZE OF CURRENT BLOCK 
? DE -> SIZE OF BLOCK TO FREE 

? NOW WE CHECK RECOMBINATION IN THE OTHER DIRECTION, 
? WE SEE IF THE BLOCK DE POINTS AT COMES PHYSICALLY 
? IMMEDIATELY BEFORE THE BLOCK HL POINTS AT. 

■; IF SO, WE CHAIN OUT THE CURRENT BLOCK AND FREE 
5 THE RECOMBINED BLOCK 


OOD9 •" 

EB 

M H F 2" 

XCHG 


5 HL -> BLOCK TO FREE 
;DE ~> CURRENT BLOCK 

OODA" 

CD 007D-V 


CALL 

CHKREC 

? CAN RECOMBINE? 

OODD" 

30 FO 


JRNC 

„ . F4 

? YES? DECHAIN & FREE 

OODF 

EB 


XCHG 


5 RESTORE PTRS 

OOEO'" 

i 8D A 

? 4* 

JMF'R 

. .FI 

? AND CHECK NEXT ONE 


? NO RECOMBINATION IS POSSIBLE, NOW WE MUST PUT 
5 THE CURRENT BLOCK SOMEWHERE IN THE LIST (WHICH 




; is 

SORTED BY 

SIZE) IT WILL GO BEFORE THE FIRST 



? BLOCK FOUND 

II_ 

WHOSE SIZE IS SMALLER 

THAN IT•"S SIZE 

00E2 

21 65E5 

y 

. .F6S 

LX I 

H,FREELST 5HL 

~> LISTHEAD 

00E5 •" 



INX 

H ? HL. 

-> SIZE 

00E6 •" 

23 

. .F7s 

INX 

H " HL 

-> FWD PTR 




MVD 

B,H 5 BC 

= OLD HLC 

00E7 •" 

44 

+ 

MOV 

B, H 


GOES'" 

4D 

+ 

MOV 

B+1,H +13 


00E9 

D5 


PUSH 

D 5 SAVE NEW BLOCK PTR 

OOEA 

5E 


MOV 

E,M ‘DE 

-> FP OF NEXT ITEM 

DOES 



INX 

H 


OOEC 

56 


MOV 

D, M 


OOED 

IB 


DCX 

D ; DE 

-> SIZE FIELD 

OGEE 

EB 


XCHG 

? HL 

~> CURRENT LIST ITEM 

GGEF •" 

D1 

it i( L 

POP 

D ? DE 

-> SIZE OF BLOCK 



7 -t- 

; IF 

THE SIZE 

OF THE BLOCK TO FREE 1 

S > THE SIZE 



; OF 

THE CURRENT BLOCK THEN IT IS TO 

BE INSERTED 



; IN 

THE LIST 

BEFORE THE CURRENT BLOCK (NOTE THAT 



; IF 

WE DIDN-'T 

HAVE THE FORESIGHT TO 

SAVE THE PTR 



? TO 

THE PREDECESSOR OF THE CURRENT 

BLOCK WE WOULD 



; BE 

IN TROUBLE HERE) 




y 

TST 

M - 5 A=S 

IZE, IF 0 ENDC 

OOF O'" 

7E 

4-„ IFN 

M 

-A, C MOV A, M 

3 

GOFl 

B7 

4* 

ORA 

A3 


00F2 

2804 


JRZ 

. .F5 5 PUT 

IN LIST THEN 

0GF4-' 

1A 


LDAX 

D ; COMPARE THE SIZES 

OOFS' 

BE 


CMP 

M ? ft > 

(HL)? DONT GO HERE 

OOF 6 •" 

3E»fc.b. 


■JRC 

. . F7 


OOFS' 


* «F5s 

MVD 

H, B 5 HL 

= BC -> PREDECESSOR' C 

OOFS'" 

60 

4* 

MOV 

H , B 


00F9 '" 

69 

4 

MOV 

H+l , B +13 


OOFA ' 

13 


INX 

D 3 DE- 

I>FWD PTR FIELD 
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TDL. Z80 CP/M DISK ASSEMBLER VERSION 2.21 
ALLOC - ALLOC - ALLOCATION MODULE 


OOFB ' 

CD OOOF" 

CALL 

CHAIN 

5 CHAIN IT IN 



CLC 


1 CLEAR CARRY, 

OOFE ' 

B7 

+ ORA 

All 


OOFF •- 

Cl 

POP 

B 


0100'. 

D1 

POP 

D 


0101' 

El 

POP 

H 


0102' 

C9 

RET 



0103' 

37 

..FAIL! STC 


5 FAIL 

0104' 

C9 

RET 




“ -*i—i—i— 


WE FREEDC 


9 ALLOGD 

5 RETURNS A FRAGMENT OF A BLOCK TO THE FREE MEMORY LIST, 
5 UPDATES THE SIZE OF THE ORIGINAL BLOCK 

t* 

? 

5 NEEDSs 

5 HL TOP OF ORIGINAL BLOCK 
5 DE -> PAST LAST BYTE USED IN THE BLOCK 

II 

? 

9. RETURNS! 

5 REGS SAME AS UPON ENTRY 

5 SIZE FIELD OF BLOCK IS THE SIZE OF THE USED PART OF 

5 THE BLOCK, FRAGMENT MOW IN FREE LIST 

II 

* 

5 CALLS! 

5 FREE -- RETURNS FRAGMENT TO FREE LIST 
; DIV16 - DIVIDES HL. BY 16 


0105' 


ALLOCDs 


OIOS" C5 PUSH B 5 SAVE REGS 

0106' 05 PUSH D 

0107- E5 PUSH H 

? + 

! DE -> LAST BYTE USED IN THE BLOCK 
5 HL --> TOP OF BLOCK 

? WE MUST FIND THE NUMBER OF BYTES WHICH WERE USED AND 
? CONVERT THIS TO BLOCKS, DE - HL GIVES THE # OF BYTES 


0108' 

E5 


PUSH 

H 

? SAVE TOP PTR 

0109" 

D5 


PUSH 

D 

? SAVE END PTR 

OlOA" 

EB 


XCHG 


5 GET DE - HL 




CLC 


?CLEAR THE CARRY! 

01 OB' 

B7 

4- 

ORA 

A3 


01OC ' 

ED52 


DSBC 

D 

?HL «-■ DE 

010E" 

CD 0000" 


CALL 

DIV16 

5 HL =/ 16 ( —>BLOCKS) 

0111" 

7D 


MOV 

A, L 

?A » # OF BLOCKS USED 

0112" 

3C 

5 A * 

I NR 

A 

9 MAKE 1 BASED 



= # OF BL 

OCKS USED 




9 DE 

-> PAST 

LAST BYTE USED 




”, WE 

MUST NOW 

GET THE ADDRESS 

OF THE NEXT BLOCK AFTER 


9 THE LAST ONE USED, THIS WILL BE THE LEFTOVER FRAGMENT 
5 DE IS ROUNDED UP TO THE NEXT BLOCK 
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ALLOC - ALLOC - ALLOCATION MODULE 


01 13' 

DI¬ 


POP 

D 

?DE -> END 

0114" 

FS 


PUSH 

PSW 

;SAVE OUR SIZE 

0115" 

21 0010 


LX I 

H, 16 

SHL = BLOCK SIZE 

0118' 

19 


DAD 

D 

? HL = DE + BLOCKS!ZE 

0119" 

7D 


MOV 

A,L 

;L = LO ORDER BYTE 

011A-" 

E6F0 


AN I 

OFOH 

“MASK LO ORDER 4 BITS 

011C' 

6F 


MOV 

L, A 

5 HL ~> FOLLOWING BLOCK 

011D ' 

EB 


XCHG 


? DE -> FOLLOWING BLOCK 

01 IE' 

FI 


POP 

PSW 

5 RESTORE BLOCKS USED 

01 IF' 

El 


POP 

H 

"HL -> TOP OF BLOCK 

0120" 

23 


I NX 

H 

5 HL -> SIZE OF BLOCK 

0121' 

4E 


MOV 

Ci M 

5 HL -> SIZE OF ORIGINAL 

0122' 

77 


MOV 

M, A 

5 SAVE SIZE OF USED BLOCI 




COM 


;a = —USEDc 

0123 ' 

2F 

4- 

CMA 



0124' 

3C 

4 

I NR 

A3 


0125' 

81 


ADD 

c 

5A = ORIGINAL-USED 

0126' 

2807 


•JRZ 

. EX 

50? NO FRAGMENT, EXIT 

0128 ' 

13 


I NX 

D 

’DE -> SIZE OF FRAGMENT 

0129' 

12 


STAX 

D 

5 SAVE FRAGMENT SIZE 

012 A ' 

IB 


DCX 

D 

“DE -> TOP AGAIN 

012B ' 

EB 


XCHG 


? HL --> TOP FOR FREE 

012C ' 

CD 00AD" 


CALL 

FREE 

? FREE THE LEFTOVER PART 

012F ' 

El 

u 

. EX 5 POP 

H 

5 RESTORE REGS 

0130' 

D1 


POP 

D 


0131' 

Cl 


POP 

B 


0132' 

C9 


RET 





n 

7 

tt 

++++ 





7 

7 

FREEALL 





n 

7 

FREES THE ELEMENTS 

OF A LINKED LIST 



7 

» 

7 

NEEDS s 





7 

HL ~> TOP 

OF FIRS 

iT BLOCK IN LIST TO BE FREED 



« 

7 

N.LNK(HL) ~> 

TOP OF FOLLOWING BLOCK TO BE FREED 



a 

7 

«i 

IF 0, 

END OF 

LIST 



7 

V 

HL —> #■»••«•*•«•«•*#■}(• 

->**#»*##*# 



n 

7 

* 


*»..# 



B 

7 

N.LNK *PTR 

TO *— 

*PTR TO >REST OF LIST 



7 

* NEXT * 

* NEXT 



w 

7 




5 RETURNSs 

; REGS ARE SAME AS UPON ENTRY 
5 ALL MEMBERS OF LINKED LIST FREED 
? NOTE - DO NOT TRY TO USE ANY OF THE FIELDS IN 
; THE ELEMENTS AFTER THEY HAVE BEEN FREED! FREE 
? MAY CHANGE THE DATA 

7 

? CALLS s 
; FREE - 


FREES A SINGLE ENTRY 



TDL Z80 
ALLOC 


0133' 
0133- 
0135' 
0136- 
0137- 
0138- 
013A- 
013D' 
0140" 
0143" 
0144- 
0146" 
0147- 
0148- 
014A- 


014B- 
014B- 
014C- 
014D- 
014E- 
0151- 
0154- 
0157- 
015 A - 
015D- 


015E- 

015E- 

015F- 

0160- 

0161- 

0162- 

0163- 

0164- 

0165- 


P/M DISK ASSEMBLER VERSION 2. 
ALLOC ~ ALLOCATION MODULE 

» .. . __ 

FREEALLs 

21 

PAGE 13 

DDES 

PUSH 

X 

5 SAVE A REG 

E5 

PUSH 

H 


D5 

PUSH 

D 


E5 

..FI 5 PUSH 

H 

■ IX = HL 

DDE! 

POP 

X 


DD5E03 

MOV 

ErN.LNK(X) 

5 DE ~> NEXT ONE IN LIST 

DD5604 

MOV 

DUM.LNK+l (X) 

5 HL -> CURRENT ONE 

CD OOAD- 

CALL 

FREE 

?FREES THE CURRENT ONE 

EB 

X CHG 


5 HL -> NEXT ONE TO FREE 

3 OF 1 

JRNC 

. .FI 

5 OK TO FREE IT? 

D1 

POP 

D 


El 

POP 

H 


DDE 1 

C9 

POP 

RET 

; ++++ 

X 



5 CORINI 

? SETS UP INITIAL MEMORY IN THE FREE LIST 

V 

5 THE CHUNKS ARE "FRAGSIZ" BLOCKS EACH EXCEPT 
? FOR THE LAST ONE WHICH MAY OR MAY NOT BE 
? SMALLER. MEMORY IS ASSUMED TO RANGE FROM 
5 -RAMSTRT- TO -RAMEND- AND THE CHUNKS ARE 
5 PHYSICALLY CONSECUTIVE 




V “* 

CORINIs 




E5 



PUSH 

H 


C5 



PUSH 

B 


D5 



PUSH 

D 


21 

65E7 


LX I 

H,FWDPTR 


22 

65E7 


SHLD 

FWDPTR 

; INITIALIZE POINTER 

01 

016F 


LX I 

B,(RAMEND-RAMS 

;trt)/16 ;size 

11 

6900 


LX I 

D»RAMSTRT 

5 STARTING ADDR 

21 

65E7 


LX I 

H,FREELST+2 

;HL->FWD PTR OF 

E5 


; + 

PUSH 

H 

5LISTHEAD, SAVE IT 


5 DE -> TOP OF CURRENT BLOCK 
5 SP -> FWD PTR FIELD OF PREDECESSOR 
? WE MUST CLEAR THE TYPE OF THE CURRENT BLOCK 
5 AND STORE XT'S ADDRESS IN THE FWD, PTR FIELD 
5 OF ITS PREDECESSOR (SAVED ON STACK) 


AF 

..Cl! CLR 

+.TEN A 

A 

-A, C 

MVI 

5 clear typei: 

A ■> 03 C 

12 

XRA All 3 

STAX 

D 


?IN 1ST WORD 

13 

I NX 

D 


5 DE->SIZE FIELD 

13 

I NX 

D 


? DE~>FWD PTR FIELD 

El 

POP 

H 


5 HL—>FWD PTR OF 

73 

MOV 

M,E 


?PREDECESSOR, WILL 


I NX 

H 


;BECOME ADDR OF 

72 

MOV 

M,D 


;CURRENT FP FIELD 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
ALLOC - ALLOC - ALLOCATION MODULE 


0166" D5 PUSH D $ PUSH IT FOR F0LL.WR 

0167" IB DCX D ?DE->SIZE FIELD AGAIN 

; + 

5 DE -> SIZE FIELD OF CURRENT BLOCK 
? BC = TOTAL SIZE LEFT IN MEMORY 

5 IF THE TOTAL SIZE - FRAGMENT SIZE IS NEGATIVE, 

? THE LAST BLOCK WILL BE SMALLER (NOT A FULL SIZE 
? FRAGMENT). OTHERWISE, THE STANDARD FRAGMENT SIZE 
5 "FRAGSIZ"' IS STORED IN THE SIZE FIELD AND THE 
5 ADDRESS OF THE NEXT BLOCK IS COMPUTED BY ADDING 
; THE FRAGMENT SIZE (IN BYTES) TO THE CURRENT ADDR 


0168 "' 

21 FFCO 


LX I 

H,-(FRAGSIZ/16) 5 HL=-BLOCKSIZE 

0I6B" 

09 


DAD 

B 

; HL.=BL.OCKS LEFT 




TST 

H 

?IF FRAG IS LESS! 

016C "' 

7C 

+ . IFN 

H 

~A, t MOV 

A, H 3 

016D" 

B7 

+ 

ORA 

Al 


016E"' 

FA 0181" 


JM 

. .EX 

5 WE USE SMALLER SIZE 

0171" 

B5 


ORA 

L 

5 IF 0, ALSO EXIT 

0172"' 

280D 


•JRZ 

. .EX 

"WITH SMALLER 




MVD 

B, H 

SBC = SIZE LEFTE 

0174" 

44 

4* 

MOV 

B, H 


0175" 

4D 

4* 

MOV 

B+l, H 

+ 13 

0176" 

3E40 


MVI 

A,FRAGSIZ/16 

;A=BLOCK SIZE 

0178"' 

12 


STAX 

D 

5 OF FRAGMENT 

0179-" 

IB 


DCX 

D 

5 BACK TO TOP 

017A"' 

21 0400 


LX I 

H,FRAGSIZ 

5 BYTE SIZE OF FRAG 

017D"' 

19 


DAD 

D 

5 NEW ADDR IN HL 

017E" 

EB 


XCHG 


5 HL->NEXT BLOCK 

017F " 

18DD 


UMPR 

..Cl 

? GET ITS SIZE 



? * 

; DE 

-> SIZE 

FIELD OF CURRENT 

BLOCK 



; BC 

= SIZE 

OF CURRENT BLOCK - 

■ "'FRAGS IZ" 



; WE 

ADD THE 

STANDARD FRAGMENT 

SIZE BACK TO 



; BC 

TO GET 

THE SIZE LEFT AND 

THIS IS THE SIZE 



? OF 

OUR LAS' 

T FRAGMENT. ITS FORWARD POINTER 



? WILL BE TO 
»_ 

THE FORWARD POINTER FIELD OF THE LISTHEAD 

0181 "' 

Cl 

. . EX 5 

POP 

B 


0182"' 

01 0040 


LX I 

B , FRAGSIZ / 16 

5 ADD TO GET SIZE 

0185" 

09 


DAD 

B 

? OF SMALLER IN HL 

0186" 

7D 


MOV 

A, L 

5 A=BLOCK SIZE 

0187" 

12 


STAX 

D 

? SAVE IN LAST ONE 

0188"' 

13 


I NX 

D 

? DE “> FWD PTR FIELD 

0189" 

21 65E7 


LX I 

H, FREELST+2 

5 HL~>FWD PTR OF FREELS 

018C"' 

EB 


XCHG 


5 HL->FIELD,DE=VALUE 

018D"' 

73 


MOV 

M, E 

? SAVE THE FWD PTR 

018E "' 

23 


I NX 

H 

5 IN THE FIELD OF 

018F " 

72 


MOV 

M , D 

;LAST BLOCK, CIRCULAR 

0190" 

D1 


POP 

D 

? RESTORE REGS 

0191 " 

Cl 


POP 

B 


0192" 

E1 


POP 



0193" 

C9 


RET 




; -M-++ 



TDL Z80 
ALLOC 


0194' 
0194- 
0195- 
0196- 
0197- 
019 A - 
019C- 
.0190.' 
019E- 
019F- 


01 AO' 
01A3- 
01A4- 
01A5- 
01A7- 
01A8- 
01A9- 


01AB- 

01 AC- 
01 AD- 
01AE - 
01AF - 


Q1B1 - 
01B2- 
01B4- 
01B6- 
01B8- 
01BA- 


CP/M DISK ASSEMBLER VERSION 2.21 PAGE 15 

- ALLOC - ALLOCATION MODULE 


5 CORCHK 

? CHECKS FREE MEMORY LIST FOR VALIDITY 
•? CHAINS THRU THE LIST AND ATTEMPTS TO FIND A 
; POINTER BACK TO THE LISTHEAD WITHIN 256 ITERATIONS 
5 IF NOT, ERROR MESSAGE PRINTED 
5 RETURNSs 
5 SUCCEED: 

5 CARRY BIT CLEAR, SUCCEEDS IF LIST OK 

? FAIL: 


CARRY BIT SET, FAILS IF LIST MESSED 



U 

It ^ 





CORCHK: 




E5 


PUSH 

H 

5SAVE REGS 

D5 


PUSH 

D 


C5 


PUSH 

B 


21 65E7 


LX I 

H, FWDPTR 

•HL~>1ST ITEM 

06FF 


MVI 

B,OFFH 

" NO OF ITERATION: 

5E 

. . Cl'S 

MOV 

E, M 

5 DE -> "NEXT. ITEM 

23 


I NX 

H 


56 


MOV 

D, M 


EB 

; + 

X CHG 


5 HL ~> NEXT ITEM 


5 HERE WE CHECK THE CURRENT FORWARD POINTER AGAINST 
? THE LISTHEAD. IF HL = FWDPTR THEN WE ARE AT THE 
5 END OF THE LIST AND CAN EXIT 


11 65E7 

LX I 

D,FWDPTR 


7C 

MOV 

A, H 

?CHECK HI ORDER 

BA 

CMP 

D 


2004 

•JRNZ 

. . C2 

5 NO? CONTINUE 

7D 

MOV 

A, L 

5 CHECK LO ORDER 

BB 

CMP 

E 


2814 

JRZ 

. .EX 

5 YES? CAN EXIT 


; + 

5 THE CURRENT ONE IS NOT THE LISTHEAD, IT'S SIZE 
5 MUST BE BETWEEN 1 AND 255 (CANNOT BE 0) 


2B 

„„C2: DCX 

H 


5 HL—>SIZE FIEL 


TST 

M 


?IS IT 0?C 

7E 

+.IFN M 

-A, i: 

MOV 

A, M 

B7 

+ ORA 

A] 




I NX 

H 


5 HL—>PTR FIELD 

280B 

■JRZ 

. . ERR 


,YES? ERROR 


5 + 

5 THE CURRENT ADDRESS MUST ALSO BE BETWEEN THE 
? BOUNDS OF FREE MEMORY, RAMSTRT ~ RAMEND 
5 IF IT IS NOT THEN IT IS AN INVALID ADDRESS 


7C 

MOV 

A, H 

? A=HI PART OF ADDR 

FE69 

CPI 

RAMSTRT>8 

5 TOO SMALL? 


JRC 

. . ERR 

5 YES? ERROR 

FE80 

CPI 

(RAMEND>8)+1 

? TOO BIG? 

3002 

JRNC 

„ . ERR 

5 YES? ERROR! 

1 CEO 

DJNZ 

..Cl 

?ITERATE AGAIN? 
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TDL 280 

CP/M DISK 

! ASSEMBLER VER: 

SION 2.2: 

L 


ALLOC - 

• ALLOC - 

ALLOCATION MODULE 



01BC 

37 

..ERR: 

STC 


? FAIL 

01BD" 

1801 


JMPR 

. „ OUT 


01BF 


. -EXs 

CLC 


5 SUCCEED L 

01BF 

B7 

+ 

ORA 

A3 


0 ICO 

Cl 

„«OUT5 

POP 

B 


01 Cl" 

D1 


POP 

D 


01C2 •" 

El 


POP 

H 


01C3 

C9 


RET 




. END 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
ALLOC - ALLOC ~ ALLOCATION MODULE 
•*f—yYMBOL. TABLE 4* , f*4 > *+*+ 


AASN 

005F 


ALLOC 

002E •" 

I 

ALLOCD 

0105" 

I 

ARGSTK 

60CC 

BACKGR 

65CC 


BLANK 

0020 


BOTRAM 

6000 


BOTTOM 

64A9 

CHAIN 

OOOF 


CHAR8L 

65DD 


CHKREC 

007D *’ 


CLEARS 

6 OCA 

CNTRL 

OOOC 


CNTRLC 

65CD 


CNTRLO 

65D9 


CNTRLU 

0015 

CNTRLZ 

65E4 


CORCHK 

0194" 

I 

CORINI 

014B-" 

I 

CPLARE 

611C 

CPLSIZ 

0140 


CR 

OOOD 


CSBLOK 

668D 


CSFLAG 

6260 

CURCX 

6814 


CURCY 

6816 


CURREN 

64A5 


C«CO 

0011 

c.ci 

0012 


c.cx 

OOOB 


C. CY 

GOOD 


C.DP 

0013 

C. ST 

0002 


C. X 

0003 


C. XF 

OOOF 


C.XS 

0007 

C. Y 

0005 


C.YF 

0010 


C.YS 

0009 


DDTON 

65CE 

DECHAI 

00 IE" 


DEVBL 

6589 


DEVCLO 

6579 


DEVCL1 

657B 

DEVCL2 

657D 


DEVCL3 

657F 


DEVCL4 

6581 


DEVCL5 

6583 

DEVCL6 

6585 


DEVCL7 

6587 


DEVFB 

65CB 


DEVHCB 

658F 

DEVMO 

658B 


DEVNM 

65B7 


DEVNT 

658D 


DEVTNA 

65BB 

DEVTNB 

65BF 


DEVTNC 

65C3 


DEVVA 

65BD 


DEWAR 

6579 

DEVVB 

65C1 


DEVVBL 

6591 


DEV VC 

65C5 


DEVVD 

65C9 

DEVVN 

65B9 


DEWS 

65C7 


DEVXCD 

65B3 


DEVYCD 

65B5 

DIV16 

0000" 

I 

DOLPLH 

62E8 


DOLPPT 

62 E A 


DUMBST 

6577 

EDBCNT 

64AD 


EDCCNT 

64A7 


EDLONG 

6812 


EDMO.DE 

681C 

EDNAME 

64 A1 


EDNCX 

680C 


EDNCY 

680E 


EDNEWS 

64A5 

EDOCX 

6808 


EDOCY 

680A 


EDPN 

6806* 


EDPO 

6804 

EDPTRC 

64AB 


EDPTRL 

64A9 


EDSTR 

681A 


ERABIT 

0002 

ERRPGM 

0000 s04 

X 

ER.ARA 

002F 


ER.ARG 

0034 


ER.ASN 

0015 

ER» BOX 

001A 


ER.CHN 

0002 


ER.CMD 

00 IF 


ER.CNV 

0016 

ER.COR 

001B 


ER.CTL 

0036 


ER.DEL 

•0026 


ER.DIM 

0030 

ER.DIV 

0018 


ER. DP 

0037 


ER.DSK 

0019 


ER.EDT 

0035 

ER.FMT 

0038 


ER.FNF 

001C 


ER.FOR 

0028 


ER.IMP 

0003 

ER.LAB 

0025 


ER.M AC¬ 

0022 

■* " ■ 

ER.MAE 

002D 


ER.NAM 

0029 

ER.NEG 

003A 


ER. NOT 

0023 


ER.NUL 

0039 


ER.NUM 

002B 

ER.NXT 

00 ID 


ER.OFL 

0017 


ER.OPN 

0014 


ER.OVE 

00 IE 

ER.PAR 

002A 


ER.REN 

002C 


ER.RET 

0024 


ER„SEP 

0021 

ER.SNP 

0031 


ER.SPC 

002E 


ER.STK 

0004 


ER.SW 

0032 

ER.TER 

0020 


ER.UFL 

0033 


ER.UNF 

0027 


EXTDEL 

002E 

E.HVAL 

0002 


E.LVAL 

0001 


E.SIZ 

0005 


E.TYP 

0000 

E. VAL 

0001 


FCNTH 

65D2 


FCNTI 

65D3 


FCNTJ 

65D4 

FCNTK 

65D5 


FCNTL 

65D6 


FCNTV 

65E0 


FCNTY 

65E3 

FIRST 

64A3 


FLAGS 

65CB 


FOREGR 

65D0 


FRAGSI 

0400 

FREE 

00AD" 

I 

FREEAL 

0133 •" 

I 

FREELS 

65E5 


FSTDOL 

648C 

FSTINT 

62EC 


FWDPTR 

65E7 


HCAREA 

6593 


INCRO 

65E9 

JUNK 

6542 


KBLOCK 



KEYFLG 

67FF 


KEYPTK 

6533 

KEYTRK 

67F7 


LF 

OOOA 


LISTON 

65E2 


MACSTU 

6536 

MACTOP 

625E 


MAXFRG 

0040 


MMMX 

65EB 


NBLKB 

0000 

NBLKM 

0001 


NEWBOT 

6810 


NL 

OOOA 


NSADDR 

6802 

NUMBUF 

64A3 


N.LNK 

0003 


OLDCHR 

64A0 


OLDCIJR 

649F 

OLDKEY 

649D 


OLDXY 

65EF 


ONEBUF 

6729 


OPRL 

0014 

OPRSP 

655B 


OPRSTK 

6547 


OPRSZ 

655D 


OUTOFF 

62E7 

0.CHAR 

0000 


O.PREC 

0002 


O.SIZ 

0006 


0. SUB 

0004 

O.TYP 

0003 


PCNT 

655E 


PI XVAL 

65ED 


POINTS 

64A7 

PONOFF 

65DA 


PRINTR 

6540 


RAMEND 

•jppp 


RAMSTR 

6900 

RANSHT 

655F 


RMDTMP 



RUBACK 

0005 


RUBOUT 

007F 

SAVESP 

625C 


SCNEED 

0004 


SCRWIN 

67CD 


SOPRSP 

653D 

SOPRSZ 

653F 


STACK 

60C8 


STAKTO 

6000 


STRSIZ 

6800 

SUBSTU 

6534 


TAB 

0009 


TAPBUF 

64B3 


TAPCON 

64AF 

TAPPRO 

64 B1 


TBFEND 

6533 


TEMPHD 

6 OCA 


TEMPS 

62E5 

TMPARG 

67 AD 


TOP 

6818 


TTYBEG 

6261 


TTYEND 

62E1 
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TTYINT 

62E3 

TTYPTR 

62E1 

TXTWI.N 

67E2 


UARTFL 

649C 

USREND 

65F1 

V3PTR 

6573 

VDCHAR 

649E 


VDNL-F 

65CF 

VIPLH 

6545 

VOICEO 

6563 

WRMODE 

65EE 


ZGIM2 

0001 

Z6REND 

681D 

♦AADR 

0010 

♦ADDRF 

0007 


♦ADDRI 

0005 

♦ADDRS 

0009 

♦ANY 

001A 

♦ANYNA 

FFFC 


♦ANYVA 

FFFE 

♦ARGF'T 

0011 

♦BGPTR 

OOOF 

♦BNDL 

0007 


♦CALLE 

000D 

♦CMDAD 

0018 

♦CPLBL 

002A 

♦CSBLO 

0028 


♦DATAP 

0007 

♦DOLDE 

0001 

♦DOLOG 

0002 

♦DVAL 

0000 


♦END 

001C 

♦FADR 

OOOE 

♦FLAGS 

0002 

♦FORBL 

0024 


♦FORPT 

OOOB 

♦FVAL 

0006 

♦GOSUB 

001A 

♦ I ADR 

oooc 


♦INPBU 

0018 

♦INPPT 

0016 

♦ IV AL 

0004 

♦KEYBL 

0026 


♦LEIMGT 

0001 

♦LINPT 

0005 

♦LOCPT 

0009 

♦MIBEL 

0022 


♦MIBEN 

00 IB 

♦NAMAD 

OOOA 

♦NAME 

OOOA 

♦NASCI 

0009 


♦NDEL 

0080 

UNLINK 

0003 

♦NULL 

0002 

♦NVALU 

0005 


♦REPEA 

00 IE 

♦RVSTU 

0013 

♦SAME 

0020 

♦SASCI 

OOOA 


♦SLEN 

0006 

♦STRAD 

0008 

♦STRPT 

0003 

♦TAF 

0000 


♦ TYPE 

0000 

♦USE 

0005 

.BLNK. 

0000 2 03 X 

.DATA. 

0000 # 

X 

.PROG. 

01C4 
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0000 " 18 


.INSERT ASS.ASM 
©.REMARK / 

© 

© 

© 

© 

© 

© 

© 

© 


# 

•if- ■«• a- 
*** 

■a 

# 


a 


a 



© # 

© aaaaaaa 

© 

© "WHEN YOU CARE ENOUGH TO PROGRAM 

© THE VERY BEST" 

© 


© ZGRASS V2.00000000 

©BY JAY FENTON, NOLA DONATO, AND TOM DEFANTI 

© (C) 1978 

© 

©/ 


.INSERT AsZRAM.ASM 


.LINK 


. PREL 


.IDENT 

USEMAP 

.INTERN 

USEMAP 

.EXTERN 

ERRPGM 

.EXTERN 

FINDHASH 

.EXTERN 

NAMERR 

.EXTERN 

NLPNT 

.EXTERN 

NXTLNK 

.EXTERN 

NXTVAL 

.EXTERN 

PDECBC 

.EXTERN 

PRINTH 

.EXTERN 

PRTYPA 

.EXTERN 

TABPNT 


« 44.4.4. 

It . *•«**• 

* 

? USEMAP 

? COMMAND TO PRINT CORE DIRECTORY OF USED NAMES 
? ON THE USERS TERMINAL 
5 FORMAT LOOKS LIKE: 

? NAME TYPE SIZE 

S NAME - ASCII NAME OF THING 

! TYPE - TYPE OF THING (STRING, INTEGER) 

? SIZE - SIZE (IN BLOCKS) ALLOCATED TO IT 

tt 

..... * '■ 

? CALLSs 

f FINDHASH -■ FIND HASH PTR FOR IT 
? NXTLNK - GET NEXT NAME BLOCK 
; DIRNAM - PRINT ENTRY FOR THE NAME 

tt M „. „ Xlt< „ ^ 

M. CMDtUSEMAP, . . USEX, 0, AFIXCU3,0, . . USEMIHI 
+USEMAP: .BYTE $CMDADR 



TDL Z80 

CP/M DISK ASSEMBLER VER 

SION 2. 

21 

PAGE 2 

USEMAP - 





0001 

04 + 

»BYTE 

(. . USEX-USEMAP)/16+1 

0002" 

00 + 

.BYTE 

0 


0003" 

642U h- 

„ WORD 

AFIXCUH ( “U"- 

101Q)#16+FSTINT 3 

0005- 

0011-' + 

. WORD 

. . USEM 


0007" 

0000 + 

WORD 

0 


0009" 

5553454D4150+ 

«A8CIZ 

/USEMAP/ 



+i 




0010 •" 

00 

.BYTE 

0 5 NO 

SWITCHES 

0011 - 

. . IJS EM! 




0011-' 

E5 

PUSH 

H 

? SAVE PTR 

0012- 

21 62EC 

LX I 

H,FSTINT 

* FIRST NAME HDR 

0015" 

3E40 

MV I 

A, "'A"' — 1 

5 SECOND LETTER 

0017" 

F5 

PUSH 

PSW 

?SAVED FOR NEXT 

0018-' 

3E24 • 

MV I 

A, 

’THIS IS FIRST 

001 A-' 

CD 0000 s 05 „ »!J 1 s 

CALL 

FINDHASH 

"FIND HASH PTR 

00 ID-' 

E5 

PUSH 

H 

5SAVE IT 

001E- 

CD 0000 s 08 „ „ I.J2 s 

CALL 

NXTL.NK 

5 GET NAME BLOCK 

0021-' 

CA 002F-' 

JZ 

. . U3 

5 NO MORE HERE? 

0024- 


INX 

H 

; MOVE TO FLAGS 

0025-' 

23 

I NX 

H 


0026 -' 

7E 

MOV 

A,M 


0027" 

2B 

DCX 

H 


0028- 

2B 

DC X 

H 


0029-' 

07 

RLC 


; DO NOT PRINT 

002A •" 

D4 003C "* 

CNC 

DIRNAM 

*, IF NO DELETE SET 

002D -' 

18EF 

JMPR 

. . IJ2 

5 AND DO NEXT ONE 

002F " 

El „■U3 s 

POP 

H 

■GET PTR 

0030-' 

FI 

POP 

PSW 

;AND LETTER 

0031 •" 

FE5A 

CPI 

-z -' 

?WAS Z? 

0033 •" 

CA 003A" 

.JZ 

. . USX 

■YES? EXIT THEN 

0036 •" 

■-}}”** 

I NR 

A 

? BUMP IT 

0037" 

F5 

PUSH 

PSW 

5 SAVE IT 

0038" 

18E0 

JMPR 

. . U1 

“DIRC IT 

003A" 

El .JJSX 5 

POP 

H 


003B •" 

C9 

RET 



003C •" 

. JJSEXs 





;++++ 

If 





7 

5 DIRNAM 




; PRINT 

a 

S OUT A 

DIRCOR ENTRY 

FOR A GIVEN NAME 


7 

? MEEDS 

« 

*1 




; HL 

-> NAME 

BLOCK 



# 




HL — 

>* TYPE 

* C$1ADDRj 

$NAMADR ) 


7 




» 

« SIZE 

* (IN 16 BYTE BLOCKS) 


*» 

... . ? - 




? .•■■■ 

NAME 

*8* 



•J 

•» PTR 

ft 







“ ‘ • ■ 

ft 

' * 



■ ■ .1 

&&&&&&&&& 



7 

? CALLS 

« 
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5 PRINTHL 

- PRINT ASCII S 

TRING 



5 PRTYPA - 

PRINT TYPE 




5 NXTVAL - 

GET VALUE FROM 

NAME 



5 TABPNT - 

PRINT TAB 




5 PDECBC - 

PRINT DECIMAL 

MUM 



? NLPNT ~ 

tt 

7 

PRINT NEWLINE 


003C " 


n „ ntr 

DIRMAM5 



003C *“ 

E5 

PUSH 

» «L. 

H 




7 “r 

; PRINT THE 
* 

NAME 


003D •" 

01 0009 

? 

LX I 

B, $NASCII 

* GET NAME FIELD 

0040 •" 

09 

DAD 

B 

? HL-O-NAME 

0041 •" 

CD 0000 s OB 

CALL 

PRINTHL 

5 PRINT NAME 

0044 **’ 

CD 0000sOD 

CALL 

TABPNT 

? AND TAB 



1 "I” 

5 PRINT THE 

TYPE 




y 

5 E IS THE S 

IZE OF THE NAME 


0047 " 

AF 

XRA 

A 

5 CLEAR A 

0043 *** 

5F 

MOV 

E, A 

? CLEAR E 

0049 

El 

POP 

H 

5 HL—>TOP OF BLOCK 

004A •" 

FS 

PUSH 

H 

5 SAVE AGAIN 

004B 

7E 

MOV 

ATM 

? A=TYPE 

004C •" 

FEOA 

CPI 

$NAMADR 

5 IS NAME? 

004E •" 

200A 

JRNZ 

„ „ D1 

5 NO? INT OR FLT 

0050-' 

23 

I NX 

H 

?REMEMBER SIZE OF 

0051" 

5E 

MOV 

E,M 

i NAME BLOCK FOR 

0052" 

2B 

DCX 

H 

5 SIZE LATER 

0053" 

CD 0000S09 

CALL 

NXTVAL 

?HL“>VALUE 

0056" 

CA 0000506 

JZ 

NAMERR 

SO? ERROR THEN 

0059" 

7E 

MOV 

A, M 

?A=TYPE of val. 

005A" 

CD 0000sOC 

„.D15 CALL 

PRTYPA 

5 PRINT TYPE 

005D " 

CD 00005 OD 

CALL 

** 

TABPNT 

5 AND TAB 



. PRINT size 





? E = SIZE OF NAME BLOCK IF 

NOT INT VALUE 



« C‘1 OCT CT TO 
y C.LOC. H. iO 

0 


0060 " 

23 

INX 

H 

5 HL->SIZE 

0061 " 

7E 

MOV 

A,M 

5A=SIZE OF VAL 

0062 " 


ADD 

E 

5 PLUS NAME SIZE 

0063 " 

6F 

MOV 

L,A 

?HL=SIZE IN BLOCKS 



5 CLR 

H 


0064" 

AF 

XRA 

A 


0065" 

67 

MOV 

H, A 

?CLEAR H 

0066" 

29 

DAD 

H 

?HL=SIZE IN BYTES 

0067" 

29 

DAD 

H 


0068 " 

29 

DAD 

H 


0069" 

29 

DAD 

H 




5 MVD 

B-j H 

?BC=SIZE TO PRINT 

006A" 

E5 

PUSH 

H 


006B " 

Cl 

POP 

B 






PAGE 4 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
USEMAP - . 


006C 

CD 0000 5 0A 

CALL 

PDECBC 

SPRINT SIZE 

006F •" 

GO 0000s07 

CALL 

NLPNT 

SAND NEWLINE 

0072-' 

El 

POP 

H 

5 RESTORE REGS 

0073- 

C9 

RET 





TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
USEMAP - 
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AASN 

005F 


ARGST.K 

60 CC 


BACKGR 

65CC 

BLANK 

0020 

BOTRAM 

6000 


BOTTOM 

64A9 


CHARSL 

65DD 

CLEARS 

60CA 

CNTRL 

oooc 


CNTRLC 

65 CD 


CNTRLO 

65D9 

CNTRLU 

0015 

CNTRLZ 

65EE4 


CPLARE 

611C 


CP LSI Z 

0140 

CR 

GOOD 

CSBLOK 

668D 


CSFLAG 

6260 


CURCX 

6814 

CURCY 

6816 

CURREN 

64A5 


C„CO 

0011 


C.C1 

0012 

C.CX 

OOOB 

C.CY 

GOOD 


C. DP 

0013 


C „ ST 

0002 

g.x 

0003 

C.XF 

OOOF 


C. XS 

0007 


C.Y 

0005 

C. YF 

0010 

C. YS 

0009 


DDTON 

65CE 


DEVBL 

6589 

DEVCL.0 

6579 

DEVCL1 

657B 


DEVCL2 

657D 


DEVCL3 

657F 

DEVCL4 

6581 

DEVCL5 

6583 


DEVCL6 

6585 


DEVCL7 

6587 

DEVFB 

65CB 

DEVHCB 

658F 


DEVMO 

658B 


DEVNM 

65B7 

DEVNT 

658D 

DEVTNA 

65BB 


DEVTNB 

65BF 


DEVTNC 

65C3 

DEWA 

65BD 

DEWAR 

6579 


DEWB 

65C1 


DEWBL 

6591 

DEWC 

65 C 5 

DEWD 

65C9 


DEWN 

65B9 


DEWS 

65C7 

DEVXCD 

65B3 

DEVYCD 

65B5 


DIRNAM 

003C *** 


DOLPLH 

62E8 

DOLPPT 

62EA 

DUMBST 

6577 


EDBCNT 

64AD 


EDCCNT 

64A7 

EDL.ONG 

6812 

EDMODE 

6810 


EDNAME 

64A1 


EDNCX 

680C 

EDNCY 

680E 

EDNEWS 

64A5 


EDOCX 

6808 


EDOCY 

680A 

EDPN 

6806 

EDPO 

6804 


EDPTRC 

64AB 


EDPTRL 

64 A9 

EDSTR 

681A 

ERAB.IT 

0002 


ERRPGM 

0000s04 

X 

ER * ARA 

002F 

ER.ARG 

0034 

ER.ASM 

0015 


ER.BO X 

001A 


ER.CHN 

0002 

ER.CMD 

00 IF 

ER.CNV 

0016 


ER„COR 

00 IB 


ER.CTL 

0036 

ER.DEL 

0026 

ER.DIM 

0030 


ER.DIV 

0018 


ER. DP 

0037 

ER.DSK 

0019 

ER.EOT 

0035 


ER.FMT 

0038 


ER.FNF 

001C 

ER.FOR 

0028 

ER.IMP 

0003 


ER.LAB 

0025 


ER.MAC 

0022 

ER.NAE 

002D 

ER.NAM 

0029 


ER.NEG 

003A 


ER.NOT 

0023 

ER.NUL 

0039 

ER.NUM 

002B 


ER.NXT 

001D 


ER.OFL 

0017 

ER.OPN 

0014 

ER.OVE 

00 IE 


ER.PAR 

002A 


ER.REN 

002C 

ER»RET 

0024 

ER.SEP 

0021 


ER.SNP 

0031 


ER.SPC 

002E 

ER.STK 

0004 

ER. SW 

0032 


ER.TER 

0020 


ER.UFL 

0033 

ER.UNF 

0027 

EXTDEL 

002E 


E.HVAL 

0002 


E.LVAL 

0001 

E.SIZ 

0005 

E.TYP 

0000 


E. VAL 

0001 


FCNTH 

65D2 

FCNTI 

65D3 

FCNT.J 

65D4 


FCNTK 

65D5 


FCNTL 

65D6 

FCNTV 

65E0 

FCNTY 

65FS 


FINDHA 

0000 s 05 

X 

FIRST 

64A3 

FLAGS 

65CB 

FOREGR 

65B0 


FRAGSI 

0400 


FREELS 

65E5 

FSTDOL 

648C 

FSTINT 

62EC 


FWDPTR 

65E7 


HCAREA 

6593 

INCRO 

65E9 

JUNK 

6542 


KBLOCK 

65F1 


KEYFLG 

67FF 

KEYPTK 


KEYTRK 

67F7 


LF 

OOOA 


LISTON 

65F2 

MACSTU 

6536 

MACTOP 

625E 


MAXFRG 

0040 


MNMX 

65EB 

NAMERR 

0000 

NBLKB 

0000 


NBLKM 

0001 


NEWBOT 

6810 

NL 

OOOA 

NLPNT 

0000s 07 

X 

NSADDR 

6802 


NUMBIJF 

64A3 

NXTLNK 

0000 

NXTVAL 

0000 s 09 

X 

OLDCHR 

64A0 


OLDCUR 

649F 

OLDKEY 

649D 

OLDXY 

65EF 


ONEBUF 

6729 


OPRL 

0014 

OPRSP 

655B 

OPRSTK 

6547 


OPRSZ 

655D 


QUTOFF 

62E7 

PCNT 

655E 

PDECBC 

0000sOA 

X 

PIXVAL 

65ED 


POINTE 

64 A 7 

PONOFF 

65DA 

PRINTH 

0000 sOB 

X 

PRINTR 

6540 


PRTYPA 

0000 s OC X 

RAMEND 

”7ppp 

RAMSTR 

6900 


RANSHT 

655F 


RMDTMP 

6538 

RIJBACK 

0005 

RIJBOUT 

007F 


SAVESP 

625C 


SCNEED 

0004 

SCRWIM 

6 7 CD 

SOPRSP 

653D 


SOPRSZ 

653F 


STACK 

60C8 

STAKTO 

6000 

STRSIZ 

6800 


SUBSTU 

6534 


TAB 

0009 

TABPNT 

0000 

TAPBUF 

64B3 


TAPCON 

64AF 


TAPPRO 

64B1 

TBFEND 

6533 

TEMPHD 

60CA 


TEMPS 

62E5 


TMPARG 

67 AD 

TOP 

6818 

TTYBEG 

6261 


TTYEND 

62 El 


TTYINT 

62E3 

TTYPTR 

62E1 

TXTWIN 

67E2 


UARTFL 

649C 


USEMAP 

0000- I 

USREND 

65F1 


PAGE 


06 X 
08 X 


OD X 
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+++•++ SYMBOL TABLE +++++ 


V3PTR 

4573 

VDCHAR 

649E 


VDNLF 

65CF 


VIPLH 

6545 

VOICED 

6563 

WRMODE 

65EE 


ZGIM2 

0001 


ZGREND 

68 ID 

$AADR 

OOIO 

♦ADDRF 

0007 


♦ADDRI 

0005 


LABORS 

0009 

$ANY 

001A 

♦ANYNA 

FFFC 


♦ANYVA 

FFFE 


♦ARGF'T 

0011 

ifBGPTR 

OQOF 

$BNDL 

0007 


♦CALLE 

GOOD 


$CMDAD 

0018 

$CPLBL 

002A 

♦CSBLG 

0028 


$DATAP 

0007 


♦DOLDE 

0001 

fDOLOO 

0002 

$DVAL. 

0000 


$END 

001C 


$FADR 

OOOE 

^FLAG'S 

0002 

♦FORBL 

0024 


♦FGRPT 

OOOB 


*FVAL 

0006 

♦GOSUB 

001A 

$ I ADR 

OOOC 


$INF'BU 

0018 


$INPPT 

0016 

$1VAL 

0004 

♦KEYBL 

0026 


$L„ENGT 

0001 


♦L.INPT 

0005 

$LGCPT 

0009 

$MIBBL 

0022 


$MIBEN 

00 IB 


♦NAMAD 

OOOA 

♦NAME 

OOOA 

♦NASCI 

0009 


$NDEL 

0080 


$NLINK 

0003 

$NULL 

0002 

♦NVALU 

0005 


$REPEA 

00 IE 


♦RVSTU 

0013 

♦SAME 

0020 

$8 ASCI 

OOOA 


♦SLEN 

0006 


♦STRAD 

0008 

♦STRF'T 

0003 

$TAF 

0000 


$TYPE 

0000 


♦USE 

0005 

. BL.NK. 

0000 s 03 X 

«BATA n 

0000# 

X 

.PROG. 

0074' 

X 
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„INSERT As 9.ASM 
@.REMARK / 


e 

@ 

e 

@ 

e 

@ 

e 


* 

* * # 

* 

# 


# 


@ -H-H-JHJ-fi-tRf- 

e 

@ "WHEN YOU CARE ENOUGH TO PROGRAM 

« THE VERY BEST" 

e 

@ ZGRASS V2.OOOOOOOO 

@BY JAY FENTON, NOLA DONATO, AND TOM DEFANTI 

@ (C) 1978 

@ 

@/ 

.INSERT As ZRAM.ASM 

.INSERT As MAC.ASM 

.e 

.1NSERT A s NCUEQU.ASM 
.LINK 
„ F’REL 

.IDENT MOD 
.INTERN MODIFY 
.EXTERN ARG 
.EXTERN CARTYP 
.EXTERN DONCU 
.EXTERN ERRPGM 
.EXTERN HEXHL 
.EXTERN HEXBYT 
.EXTERN IGET 
.EXTERN INHEX 
.EXTERN INPTTY 
.EXTERN IPOP 
.EXTERN IPUSH 
.EXTERN IYNCU 
.EXTERN KLB 
.EXTERN NAMADR 
.EXTERN NAMSET 
.EXTERN NLPNT 
.EXTERN NXTABC 
.EXTERN NXTLNK 
.EXTERN NXTPTR 
.EXTERN NXTVAL 
.EXTERN DUTCH 
.EXTERN PDECBC 
.EXTERN PRINTF 
.EXTERN PRINTHL 
.EXTERN PRTYPA 
. EXTERN SRCI-IOPR 


PAGE 
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.EXTERN TABPNT 


SMODIFY COMMAND 

M.CMDCMODIFY, . . MODX, 0, MF, . . MODA, , . MOD IK 


0000-' 

18 

+MODIFY s 

. BYTE $CMDADR 


0001"' 

CD 

4- 

. BYTE (..MODX-MODIFY>/16+1 

0002 

00 

4* 

.BYTE 0 


0003" 

OOC1 •- 

4* 

.WORD MF 


0005“ 

0030" 

4* 

.WORD ..MODI 


0007“ 

0010" 

4- 

.WORD ..MODA 


0009 " 

4D4F444946594- 

.ASCII /MODIFY/ 




+ 3 



0010 

63 

. .MODA5 

.BYTE 99 

5 SPECIAL 

0011 

48455845585 

10 

.ASCII /HEXEXPR 

U.E. NAME+HEX OR HEX; 

0030 *“ 

CD 0000s10 

. .MODI 5 

CALL KLB 

SKILL BLANX 

0033 

DDES 


PUSH X 

5 SAVE X 

0035 *“ 

CD 0059“ 


CALL .. GHEX 

5 GET HEX 

0038-' 

D5 


PUSH D 

5 SAVE VALUE 

0039“ 

CD 0074" 

. .MORE5 

CALL .. OPR 

5 GET OPERATOR 

003C *“ 

•3850 


•JRC ...EX 


003E 

CD 0059"' 


CALL .. GHEX 

5 NEXT VALUE 

0041 

D5 


PUSH D 


0042 

E5 


PUSH H 

5 GET THE SUBROUTINE 

0043*“ 

DD6E04 


MOV L,O.SUB 

(X) 

0046 

DD6605 


MOV H j 0 . SUB+1(X) 

0049 ' 

E5 


PUSH H 


004A *“ 

DDE 1 


POP X 

5 INTO X 

004C •" 

El 


POP H 

•JSR XC 


004D *“ 

DDES 

+ . IFIDM 

cx:i cxi, c 

PUSH X 

004F *“ 

DD21 0057“ 

-h 

LXI X,..0001 

0053“ 

DDES 

4- 

XT IX 


0055“ 

DDE9 

-I- 

PC IX 




+i 



0057 *“ 

18E0 

: - 

JMPR „.MORE 

5 GOON 

0059“ 

CD 0000s05 

. . GHEX 5 

CALL CARTYP 
ZERROR ER.NUMC 

SIS ALPHA, ETC. 

005C *“ 

2004 


JRNZ „.0002 


005E*“ 

CD 0000 5 07 

4 . 

CALL ERRPGM 


0061 *“ 

2B 

4 

.BYTE ER.NUM 


0062“ 


4« 0002- 

3 


0062“ 

3004 


JRNC ..ALPH 


0064 *“ 

CD 0000sOB 


CALL INHEX 


0067“ 

C9 


RET 


oo 6 y ** 

CD 0000512 

« «ALF'H" 

CALL NAMSET 


006B *“ 

AF 


XRA A 


006C *“ 

CD 0000 5 11 


CALL NAMADR 


006F *“ 

C8 


RZ 

ERROR ER«NAMEC 


0070 “ 

CD 0000507 

4* 

CALL ERRPGM 


0073 *“ 

29 

4* 

.BYTE ER.NAME 




4II 



0074 *“ 

C5 

u .OPRs 

PUSH B 

5 SEE NOLA' S EVAL 

0075“ 

D5 


PUSH D 


0076“ 

4E 


MOV C, M 
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MOD - 


0077" 

23 


INX H 



0078" 

11 00B4" 


LX I D,. .MTAB 



007B" 

C3 0000sID 


JMP SRCHOPR 



007E "' 

Cl 

.„MADDs 

POP B 



007F" 

D1 


POP D 



0080." 

E3 


XTHL 



0081" 

19 


DAD D 



0082"' 

E3 


XTHL 



0083"' 

C5 


PUSH B 



0084" 

C9 


RET 



0085" 

Cl 

».MSUBs 

POP B 



0086"' 

D1 


POP D 



0087"' 

E3 


XTHL 






CLCC 



0088 "' 

B7 

+ 

ORA All 



0089 •" 

ED52 


DSBC D 



008B" 

E3 


XTHL 



0080" 

C5 


PUSH B 



008D" 

C9 


RET 



008E"' 

D1 

. „EXs 

POP D 

? GET VALUE 

OFF STACK 

008F" 

CD 0000s13 

„.DEXs 

CALL NLPNT 



0092"' 

7A 


MOV A,D 

SPRINT ADDRESS STRAIGHT 

0093" 

CD 0000 s 09 


CALL HEXBYT 



0096" 

7B 


MOV A,E 



0097"' 

CD 0000s09 


CALL HEXBYT 



009A " 

3E3D 


MVI A, "' = "• 



0090" 

CD 0000s18 


CALL DUTCH 



009F" 

1A 


LDAX D 

? GET VALUE 

BACKWARDS 

OOAO"' 

CD 0000s09 


CALL HEXBYT 



00 A3"' 

13 


INX D 



00A4 "' 

1A 


LDAX D 



00 A5 "' 

CD 0000s09 


CALL HEXBYT 



00A8" 

13 


INX D 



00 A9"' 

7E 


MOV ATM 



OOAA " 

FE2C 


CPI 

5 COMMA MEANS PRINT ON 

00 AC" 

28E1 


JRZ „„DEX 



00 AE "' 

CD 0000s13 


CALL NLPNT 



GOBI"' 

DDE 1 


POP X 



00B3 "' 

C9 


RET 



00B4" 


«.MTABs 

OPER , ,0,0, . „ 

MADDC 


00B4" 

2B 

4* 

„ BYTE 



00B5"' 

00 

+ .TFB LI 

, C « BYTE 03 C„BYTE 3 


00B6" 

00 


„BYTE 0 



00B7 "' 

00 

4*' 

.BYTE 0 



00B8" 

007E"' 

-h 

.WORD ..MADD3 






OPER " —" 3 3 0 3 0 3 » » 

MSUBC 


OQBA" 

2D 

+ 

.BYTE 



OOBB" 

00 

+.ifb c:3 

, C„BYTE 03 C.BYTE 3 


OOBC" 

00 

+ 

.BYTE 0 



OOBD " 

00 


.BYTE 0 



OOBE " 

0085"' 

4* 

.WORD ..MSUB3 



OOCO " 

00 


.BYTE 0 



00C1" 


« «MODX 2 





5 MF COMMAND - PRINTS OUT FLOATING POINT VALUE OF RATION 
AL NUMBER 



TDL Z80 CP/M DISK ASSEMBLER VERSION 2-21 
MOD 


5 A/B, COMMAND FORMAT: MF A,B 
M-CMDCMF, . .MFX, Or AFIXCM3, . .MFA, . . MFSDI 


OOC 1 

18 

+MF s 

-BYTE 

$CMDADR 

00C2 '■ 

04 

-h 

„ BYTE 

(.-MFX~MF)/16+1 

00C3" 

00 

+ 

- BYTE 

0 

00C4 ■" 

63 AC 

4- 

- WORD 

AFIX C M 3 C("M"-101Q)»16+FSTINTI 

00C6 

OOCD' 

4- 

. WORD 

- - MFS 

00C8' - 

OODO ' 

4* 

. WORD 

- - MFA 

OOC A -■ 

4D4600 

4- 

-ASCIZ 

/MF/ 






OQCD" 

CD 0000:04 

« u liFSs 

CALL 

ARC 

OODO' - 

0600 

« «MFAs 

-BYTE 

$FVAL,$TAF 

00D2 •' 

E5 


PUSH 

H 

00D3" 

CD 0000:OF 


CALL 

IYNCU 

00D6- 

CD 0000:OD 


CALL 

IPOP 

00D9 

7A 


MOV 

A 7 D 

OODA •" 

CD 0000:09 


CALL 

HEXBYT 

OODD 

7B 


MOV 

A,E 

OODE 

CD 0000:09 


CALL 

HEXBYT 

OGE1 

CD 0000:OD 


CALL 

IPOP 

00E4 ■' 

7A 


MOV 

A 7 D 

00E5 •“ 

CD 0000:09 


CALL 

HEXBYT 

GOES' - 

7B 


MOV 

A, E 

00E9 ' - 

CD 0000:09 


CALL 

HEXBYT 

GOEC 

CD 0000:13 


L ALL 

NLPIMT 

OOEF ' 

El 


POP 

H 

OOFO •' 

C9 


RET 


OOF 1 ■' 


4i « M F X s 
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END 
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•TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
MOD 

+++++ SYMBOL TABLE +++++ 


AASM 005F 
BLANK 0020 
CHARSL 65DD 
CNTRLO 65D9 
CPLSIZ 0140 
CURCX 6814 
C.C1 0012 
C.ST 0002 
C.Y 0005 
DEVBL 6589 
DEVCL3 657F 
DEVCL7 6587 
DEVNM 65B7 
DEVTNC 65C3 
DEVVBL 6591 
DEWS 6507 
DOLPPT 62EA 
EDCCNT 64A7 
EDNCX 680C 
EDOCY 680A 
EDPTRL 64A9 
ER.ARA 002F 
ER.CHN 0002 
ER.CTL 0036 
ER.DP 0037 
ER..FNF 001C 
ER.. MAC 0022 
ER.NOT 0023 
ER.OFL 0017 
ER.REN 002C 
ER.SPC 002E 
ER.UFL 0033 
E.LVAL 0001 
FCNTH 65D2 
FCNTL 65D6 
FLAGS 65CB 
FSTDOL 648C 
HEXBYT 0000!09 X 
INHEX 0000!OB X 
TYNCU 0000!OF X 
KEYPTK 6533 
LISTON 65E2 
MF 00C1" 

NAMADR 0000!11 X 
NCUCOM 0029 
NLPNT 0000!13 X 
NXTLNK 0000!15 X 
N.ARG 000:3 
N.CHSF 0015 
N.DDIV 002F 
N.DSUB 002D 
N.EXP OOOA 
N.FIXS 00IF 
N.FSUB 0011 
N.NOP 0000 


ARG 

00005 04 

X 

BOTRAM 

6000 


CLEARS 

60CA 


CNTRLU 

0015 


CR 

OOOD 


CURCY 

6816 


c. ex 

OOOB 


c.x 

0003 


C . YF 

0010 


DEVCLO 

6579 


DEVCL4 

6581 


DEVFB 

65CB 


DEVNT 

658D 


DEWA 

65BD 


DEWC 

65C5 


DEVXCD 

65B3 


DOMCU 

0000:06 

X 

EDLONG 

6812 


EDNCY 

680E 


EDPN 

6806 


EDSTR 

681A 


ER«ARG 

0034 


ER.CMD 

00 IF 


ER.DEL 

0026 


ER.DSK 

0019 


ER.FOR 

0028 


ER.MAE 

002D 


ER.NUL 

0039 


ER.OPN 

0014 


ER.RET 

0024 


ER.STK 

0004 


ER.UNF 

0027 


E.SIZ 

0005 


FCNTI 

65D3 


FCNTV 

65E0 


FOREGR 

65D0 


FSTINT 

62EC 


HEXHL 

0000:08 

X 

inptty 

0000 5 oc 

X 

JUNK 

6542 


KEYTRK 

67F7 


MACSTU 

6536 


MIMMX 

65EB 


NAMSET 

0000:12 

X 

NCUDAT 

0028 


NSADDR 

6802 


NXTPTR 

0000:16 

X 

N.ASIN 

0005 


N.CHSS 

0074 


N.DIV 

0004 


N.EMAX 

0017 


M.FADD 

0010 


N.FLTD 

001C 


N.LN 

0009 


N.OFLO 

0001 



ARGSTK 60CC 
BOTTOM 64A9 
CNTRL OOOC 
CNTRLZ 65E4 
CSBLOK 668D 
CURREN 64A5 
C.CY OOOD 
C. XF OOOF 
C.YS 0009 
DEVCL1 657B 
DEVCL5 6583 
DEVHCB 658F 
DEVTNA 65BB 
DEWAR 6579 
DEWD 65C9 
DEVYCD 65B5 
DUMBST 6577 
EDMODE 681C 
EDNEWS 64A5 
EDPO 6804 
ERABIT 0002 
ER.ASM 0015 
ER.CNV 0016 
ER.DIM 0030 
ER.EDT 0035 
ER.IMP 0003 
ER.NAM 0029 
ER.NUM 002B 
ER.OVE 00IE 
ER.SEP 0021 
ER.SW 0032 
EXTDEL 002E 
E.TYP 0000 
FCNTJ 65D4 
FCNTY 65E3 
FRAGSI 0400 
FWDPTR 65E7 
IGET 0000:OA X 

i pop 00005 do X 

KBLOCK 65F1 
KLB 0000:10 X 
MAC-TOP 625E 
MODIFY 0000'- I 
NBLKB 0000 
NEWBOT 6810 
NUMBUF 64A3 
NXTVAL 0000:17 X 
N.ATAN 0007 
N.COS 0003 
N.DMUL 002E 
N.EMIN FF69 
N.FDIV 0013 
N.FLTS 00ID 
N.LOG 0008 
N.POPD 0038 


BACKGR 65CC 
CARTYP‘0000!05 X 
CNTRLC 65GD 
CPUARE 6IIC 
CSFLAG 6260 
C.CO 0011 
C.DP 0013 
C.XS 0007 
DDTON 65CE 
DEVCL2 657D 
DEVCL6 6585 
DEVMO 658B 
DEVTNB 65BF 
DEVVB 65C1 
DEWN 65B9 
DOLPLH 62E8 
EDBCNT 64AD 
EDNAME 64A1 
EDOCX 6808 
EDPTRC 64AB 
ERRPGM 0000507 X 
ER.BOX 001A 
ER.COR 00IB 
ER.DIV 0018 
ER.FMT 0038 
ER.LAB 0025 
ER.NEG 003A 
ER.NXT 00ID 
ER.PAR 002A 
ER.SNP 0031 
ER.TER 0020 
E.HVAL 0002 
E.VAL 0001 
FCNTK 65D5 
FIRST 64A3 
FREELS 65E5 
HCAREA 6593 
INCRO 65E9 
IPUSH 0000!OE X 
KEYFLG 67FF 
LF OOOA 

MAXFRG 0040 

M. POPS 0078 

NBLKM 0001 
NL OOOA 

NXTABC 0000!14 X 

N. ACOS 0006 
N.CHSD 0034 
N.DADD 002C 
N.DMUU 0036 
N.ESGN 0040 
N.FIXD 00IE 
N.FMUL 0012 
N.MSGN 0080 
N.PuPF OO18 
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N-PTOD 

0037 



N.PTOF 

0017 



N.PTOS 

0077 


N.PUPI 

001A 

N.PWR 

OOOB 



N«SADD 

006C 



N.SDIV 

006F 


N.SIGN 

0040 

N« SIN 

0002 



N.SMUL 

006E 



N.SMUU 

0076 


N.SQRT 

0001 

N.SSUB 

006D 



N. TAN 

0004 



N.UFLO 

0002 


N.XCHD 

0039 

N.XCHF 

0019 



N.XCHS 

0079 



N.ZERO 

0020 


OLDCHR 

64A0 

OLDCUR 

649F 



OLDKEY 

649D 



OLDXY 

65EF 


ONEBUF 

6729 

OPRL 

0014 



OPRSP 

655B 



OPRSTK 

6547 


OPRS.Z 

655D 

DUTCH 

00005 

18 

X 

OUT OFF 

^»2E7 



0.CHAR 

0000 


O.PREC 

0002 

O.SIZ 

0006 



0»SUB 

0004 



O.TYP 

0003 


PQNT 

655E 

PDECBC 

0000 s 

19 

X 

PIXVAL 

65ED 



POINTE 

64A7 


PONOFF 

65DA 

PRINTF 

0000« 

1A 

X 

PRINTH 

0000 s 

IB 

X 

PRINTR 

6540 


PRTYPA 

0000 

RAMEND 

7FFF 



RAMSTR 

6900 



RANCHT 

655F 


RMDTMP 

6538 

RUBACK 

0005 



RUBOUT 

007F 



8AVESP 

625C 


SCNEED 

0004 

S'CRWIN 

67 CD 



SOPRSP 

653D 



SOPRSZ 

653F 


SRCHOP 

0000 

STACK 

60C8 



STAKTO 

6000 

* 


STRSIZ 

6800 


SUBSTU 

6534 

TAB 

0009 



TABPNT 

00005 

IE 

X 

TAPBUF 

64B3 


TAPCON 

64AF 

TAPPRO 

64B1 



TBFEND 

6533 



TEMPHD 

60 C A 


TEMPS 

62E5 

TMPARG 

67 AD 



TOP 

!> 

co 

CO 



TTYBEG 

6261 


TTYEND 

62E1 

TTYINT 

62E3 



TTYPTR 

&2E 1 



TXTWIM 

67E2 


IJARTFL 

649C 

USREND 

65F1 



V3PTR 

6573 



VDCHAR 

649E 


VDNLF 

65CF 

VIPLH 

6545 



VOICED 

6563 



WRMODE 

65EE 


ZGIM2 

0001 

ZGREND 

68 ID 



♦AADR 

0010 



♦ADDRF 

0007 


♦ADDRI 

0005 

♦ADDRS 

0009 



♦ANY 

001A 



♦ANYNA 

FFFC 


♦ANYVA 

FFFE 

♦ARGPT 

0011 



♦BGPTR 

OOOF 



♦BNDL 

0007 


♦CALLE 

OOOD 

♦CMDAD 

0018 



♦CPLBL 

00.2A 



♦CSBLO 

0028 


♦DATAP 

0007 

♦DOLDE 

0001 



♦DOLOO 

0002 



♦DVAL 

0000 


♦END 

001C 

♦FADR 

OOOE 



♦FLAGS 

0002 



♦FORBL 

0024 


♦FORPT 

OOOB 

♦FVAL 

0006 



♦GOSUB 

001A 



♦ I ADR 

OOOC 


♦INPBU 

0018 

♦INPPT 

0016 



♦ IV AL 

0004 



♦KEYBL 

0026 


♦LENGT 

0001 

♦Ll'NPT 

0005 



♦LOCPT 

0009 



♦MIBBL 

0022 


♦MIBEN 

001B 

♦NAMAD 

OOOA 



♦NAME 

OOOA 



♦NASC1 

0009 


♦NDEL 

0080 

UNLINK 

0003 



♦NULL 

0002 



♦NVALU 

0005 


♦REPEA 

00 IE 

♦RVSTU 

0013 



♦SAME 

0020 



♦SASCI 

OOOA 


♦SL.EN 

0006 

♦STRAP 

0008 



♦STRPT 

0003 



♦TAF 

0000 


♦TYPE 

0000 

♦USE 

0005 



»BLNK. 

0000« 

03 

X 

„DATA. 

0000* 

X 

.PROG. 

OOF 1 


ID X 
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SUB - ZGRASS SUBROUTINES 


.INSERT AsS.ASM 


e. 

© 


REMARK / 


© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

©BY 


* 

» 

* 

* 

* 

# 

■IHHHHHHfr 

“WHEN YOU CARE ENOUGH TO PROGRAM 
THE VERY BEST" 


JAY 


ZGRASS V2.OOOOOOOO 

FENTONi NOLA DONATO, AND TOM DEFANTI 


© <C) 1978 

© 

©/ 

.INSERT AsZRAM.ASM 
.LINK 
. PREL 

.IDENT SUB 
.EXTERN ALLOC 
.EXTERN ARGLIN 
.EXTERN DELMIB 
.EXTERN ERRPGM 
.EXTERN FREE 
.EXTERN GETOPND 
.EXTERN OUTCH 
.INTERN ACOPY 
.INTERN CARTYA 
.INTERN CARTYP 
.INTERN CLEARI 
.INTERN DECSIY 
.INTERN FINDLAB 
.INTERN GETLPT 
.INTERN HEXBYT 
,INTERN HEXHL 
.INTERN INC5IY 
.INTERN INHEX 
. INTERN ISNL. 
.INTERN ISTERM 
.INTERN KISNL 
.INTERN KLB 
.INTERN NLPNT 
.INTERN NXTABC 
.INTERN NXTLNK 
„INTERN MXTPTR 
.INTERN NXTVAL 
. INTERN PDECA. 

.INTERN PDECBC 
.INTERN PRINTA 
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.INTERN PRINTFF 
. INTERN PRINTHL 
. INTERN F'UTLPT 
.INTERN SCANS 
. INTERN SCAIMLAB 
.INTERN SCANNL 
.INTERN STREQK 
.INTERN SWITCH 
.INTERN TABPNT 
.INTERN TEMPCHN 
.INTERN TEMPUNCH 
.INTERN WARNFF 


0000 

CD GOOD •“ 

WARNFFs 

CALL PRINTFF 


0003“ 

5741524E494E 


„ASCIZ /WARNINGS 

/ 



1PRINTFF—PRINT STRING FOLLOWING IN LINE TILL 



5 NULL I 

S SEEN 


GOOD-' 

E3 

PRINTFF 

s XTHL 

5 SAVE HL, GET PTR 

OOOE" 

7E 

„.LOOPS 

MOV A 7 M 

?GET THE CHARACTER 

GOOF - 

23 


INX H 

5 BUMP HL 

ooio- 

A7 


ANA A 

5 IS NULL? 

0011 ' 

2805 


•JRZ ..QUIT 

?YUP 

0013' 

CD 0000 SOA 


CALL DUTCH 

?PUTITOUT 

0016“ 

18F6 


JMPR .»LOOP 

; MORE 

0018 ' 

E3 

«„QUITS 

XTHL 

5 AGAIN 

0019' 

C9 


RET 




5PRINTHL—PRINT STRING HL->AT UNTIL A NULL 

001 A" 

AF 

PRINTHL 

s XRA A ;NULL A 




5 PRINTA 

—PRINTS WHAT HL~ 

>AT UNTIL DELIM 



n 

1 

IN A SEEN OR A 

NULL IS FOUND 



$HL IS 

ADVANCED TO POINT 

PAST DELIMITER 

00 IB" 

C5 

PRINTA5 

PUSH B 


001C" 

4F 


MOV C» A 

” COPY 

001 D"' 

7E 

.-LOOPS 

MOV A,M 

?GET char 

00 IE' 



I NX H 


00 l.F' 

B7 


ORA A 

?IS NULL? 

0020 ' 

2808 


•JRZ . .QUIT 

5 YAS 

0022 ' 

B9 


CMP C 


0023" 

•-■one- 

4h*WVw 


JRZ ..QUIT 


0025' 

CD 00005OA 


CALL DUTCH 


0028 ' 

18F3 


JMPR ..LOOP 


002A ' 

Cl 

. .QUITS 

POP B 


UU/B" 

C9 


RET 




S NLPNT 

AND TABPNT---PRINTS NL'S AND TABS 

002C ' 

3E0A 

NLPNTs 

MVI A 7 NL 


002E ' 

1802 


JMPR TABPN1 


0030 

3E20 

TABPNTs 

MVI A,' ' 



PAGE 
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SUB - ZGRASS SUBROUTINES 
PRINT ROUTINES 


0032“ 

CD 0000sOA 

TABPNls 

CALL DUTCH 


0035- 

C9 


RET 




SPDECA- 

-PRINTS CONTENTS 

OF A AS UNSIGNED 



u 

1 

DECIMAL NUMBER 


0036- 

G5 

PDECAs 

PUSH B 5 SAVE BC 

0037- 

4F 


MOV C,A 5 STORE 

A IN BC 

0038 *“ 

0600 


MV I B» 0 


003A - 

1801 


JMPR PDECB1 

SPRINT BC 



5 PDECBC 

—PRINT BC AS 16 

-BIT SIGNED # 

0030“ 

C5 

PDECBC s 

PUSH B 


003D- 

D5 

PDECB1s 

PUSH D 


003E" 

E5 


PUSH H 


003F- 

21 0082- 


LXI H,.-DTBL 

? HL—>DIVIDE TABLE 

0042' 

E5 


PUSH H 


0043 •" 

60 


MOV Hi B 

SPLIT BC IN HL 

0044 “ 

69 


MOV L,C 


0045“ 

78 


MOV A,B 

5 CHECK FOR NEGATIVE 

0046 ■" 

A7 


ANA A 


0047- 

F2 0052“ 


UP -.PLUS 


004A- 

3E2D 


MVI A,--- 

? PUT OUT A ~~ 

004C- 

CD 0000sOA 


CALL DUTCH 


004F*“ 

CD 008C- 


CALL ABS 

55 NEGATE IT 

0052- 


. . PLUS." 





"NOW WE 

HAVE HL=WHAT'S 

LEFT, SP->DIV TABLE 



; USE B 

FOR LOOP COUNT AND C=LZ SUPPRESS FLAG 



5 DE IS 

THE SUBTRACTOR 


0052- 

01 0501 


LX I Bn 501H 

>5 INITIALIZE (SURE) 

0055- 

iro 

.„LOOPS 

XTHL 

S HL—>TOP 

0056 - 

5E 


MOV EiM 

5 GET SUBRTRACTOR 

0057 - 

23 


INX H 


0058- 

56 


MOV DvM 


0059- 



INX H 


005A" 

E3 


XTHL 

5 BACK TO WHAT 'S LEFT 

005B- 

AF 


XRA A 

SCLEAR CURRENT DIGIT 

005C - 

ED52 

..SUBTs 

DSBC D 


005E - 

CB7C 


BIT 7 1 H 5 DID WE 

-GO'-? 

0060- 

2003 


•JRNZ .-MI NU 


0062' 

c*L* 


I NR A 


0063- 

18F7 


JMPR „ .SUBT 




? RESULT 

WENT NEGATIVE, 

CORRECT IT 

0065- 

19 

.-MINUS 

DAD D 


0066' 

A7 


ANA A 

5 IS DIGIT 0? 

0067- 

2003 


JRNZ . -PRNT 


0069- 

B1 


ORA C 

SHAVE WE PRINTED A 0 





S BEFORE? 

006A ' 

2007 


JRNZ .. SKLZ 


006C- 

C630 

. . PRNTs 

ADI -O' 

SMAKE INTO ASCII 

006E- 

CD 0000s0A 


CALL DUTCH 

SAND PRINT IT 

0071- 

OEOO 


MVI C,0 

“ SET LZ FLAG 

0073 - 

1OEO 

. .SKLZs 

DJNZ . -LOOP 

S LOOP BOTTOM 

0075- 

OD 


DCR C 

5 WAS NUMBER ZERO? 

0076' 

2005 


JRNZ .„ DONE 

5 NOPE 





TDL Z80 

CP/M DISK ASSEMBLER VER 

SION 2.21 



SUB ~~ 

ZGRASS SUBROUTINES 




PRINT ROUTINES 





0078" 

3E30 


MVI A,"O" 

5PUT OUT A 

ZERO 

007A-' 

CD 0000 sOA 


CALL DUTCH 



007D •' 

El 

..DOMES 

POP H 



007E" 

El 


POP H 



007F *" 

D.1 


POP D 



0080" 

Cl 


POP B 



0081 " 

C9 


RET 





5 DIVIDE 

TABLE FOLLOWS 



0082 "* 

2710 03E8 

DTBL s 

.WORD 10000 7 1000 7 100 7 10 5 1 




?COMPUTE ABS (HL) 



008C" 

7C 

ABS s 

MOV A,H 



008D" 

A7 


ANA A 



008E" 

FO 


RP 



008F ** 

2F 


CMA 



0090" 

67 


MOV H,A 



0091 x 

7D 


MOV A,L 



0092." 

2F 


CMA 



0093"' 

6 F 


MOV L,A 



0094" 

oo 

L-.J 


I MX H 



0095"' 

C9 


RET 





?INHEX- 

-GETS VALUE IN 

DE FROM HEX 

CHARS HL 

0096 •" 

C5 

INHEXs 

PUSH B 



0097*’ 

11 0000 


LX I D 7 0 

S ACCUMULATOR 

009A' 

CD 025F *** 

..SCANS 

CALL CARTYP 

SIS NUMBER 

OR NAME 

009D"' 

7E 


MOV A,M 

5 GET CHAR 

ANYWAY 

009E"' 

2815 


.JRZ ..INDL 

SIS DEL.IM 


00 AO "* 

3004 


JRNC .. ALPH 

5 IS NAME 


00 A 2 " 

D630 


SUI 30H 

5 NUMMIE 


00 A4 "' 

1802 


■JMPR . . ADD 

5 ADD IT IN 


00A6" 

D637 

. . ALPHs 

SUI 37H 

5 SHOULD BE 

A-F 

00 A 8 " 

EB 

„. ADDS 

XCHG 



00A9" 

4F 


MOV C,A 



OOAA" 

0600 


MVI B,0 



00 AC"' 

*"i o 

jZ. / 


DAD H 



00 AD" 

29 


DAD H 



OOAE" 

29 


DAD H 



OOAF" 

29 


DAD H 5 MUL 

BY 16 


OOBO" 

09 


DAD B * AND 

ADD IN E#NEW 

ONE 

00B1 "' 

EB 


XCHG' ? PUT 

IN D 


00 B2"' 



INX H 5 NEXT 

CHAR 


00B3" 

18E5 


JMPR .. SCAN 



00B5" 

Cl 

.. INDLs 

POP B 



00B6" 

C9 


RET 





5 HEXHL— 

-PRINTS BYTE HL->AT IN HEX 


00B7" 

7E 

HEXHLs 

MOV A 7 M 



00B8 " 

F5 

HEXBYfs 

PUSH PSW 



00B9 " 

OF 


RRC 



OOBA "' 

OF 


RRC 



OOBB" 

OF 


RRC 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
SUB - ZGRASS SUBROUTINES 
PRINT ROUTINES 


ODBC"' 

OF 

RRC 

00 BD" 

CD OOCl" 

CALL ..HNIB 

ooco 

FI 

POP PSW 

ooc i -■ 

E60F 

».HNIBs ANI OFH 

00C3 •" 

FEOA 

CPI 10 

00C5 

3802 

JRC . . LT10 TOO 

00G7 •' 

C607 

ADI "A 9 "-l 5 ADD OFFSET 

00C9 •” 

C630 

. „ LT10s ADI - 0•- 5 MAKE INTO ASC11 

OOCB ■" 

CD 0000sOA 

CALL DUTCH 

OOCE 

C9 

RET 



5 *TEMPCHN—LINKS HL INTO TEMP LIST 

5 IN! HL-O-BLOCK TO BE LINKED IN 

5 OUT: SAME 

It 

? 

?NOTE: BLOCKS LINKED IN SHOULD NOT HAVE STUFF 

? HANGING OFF, THAT IS, NAMEBLOX WITH 

! POINTER VALUES SHOULDN'T BE TEMPCHNED 

OOCF 


TEMPCHN: 

OOCF 

E5 

PUSH H 

OODO •" 

D5 

PUSH D 

OOD1 

C5 

PUSH B 

00D2 “ 

ED5B 60CA 

LDED TEMPHDR 5 PICKUP CURRENT FIRST 

00D6 

22 60CA 

SHLD TEMPHDR SSTUFF NEW GUY 

00D9' 

01 0003 

LXI B,$NLINK 

ODBC" 

09 

DAD B 

OODD- 

73 

MOV M,E 

CODE-’ 

^3 

INX H 

OODF 

72 

MOV M,D 

OOEO 

Cl 

POP B 

OOE1 ■' 

D1 

POP D 

00E2 " 

El 

POP H 

00E3 

C9 

RET 



5 *TEMPUNCH—PULLS HL OUT OF TEMP LIST 
?INs HL—>BLOCK TO BE EXTRACTED 

TOUTS BLOCK EXTRACTED 

00E4 


TEMPUNCHs 

00E4 

C5 

PUSH B 

DOES 

DDES 

PUSH X 

00E7 -■ 


PUSH H 

00E8-' 

21 60C7 

LXI H, TEMPHDR-$NL.INK 5LISTHEAD 

GOES 

E5 

..MORES PUSH H ?SAVE POINTER IN X 

OOEC 

DDE1 

POP X 

OOEE 

CD 0227 

CALL NXTLNK 5 GET NEX GUY 

OOF 1 •“ 

2005 

JRNZ ...THERE ? GOT ONE 

O0F3-" 

El 

..RETs POP H 

00F4 

DDE 1 

POP X 

00F6-' 

Cl 

POP B 

00F7 

C9 

RET 

OOFW " 

Cl 

..THERE: POP B 5 GET ORIG HL 

00F9 

C5 

PUSH B SANS SAVE IT 



TDL 280 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 6 

SUB - ZGRASS SUBROUTINES 
PRINT ROUTINES 


OOF A" 

E3 

PUSH H 

OOFB" 

AF 

XRA A 

OOFC" 

ED42 

DSBC B 5 HL--BC? 

OOFE 

El 

POP H 

OOFF 

20EA 

JRNZ ..MORE 5 NO 

oioi - 

CD 0227 •' 

CALL NXTLNK 

0104" 

DD7503 

MOV $NLINK(X),L 

0107- 

DD7404 

MOV $NLINK+1(X),H 

010 A "' 

18E7 

JMPR ..RET 


", -h-ISTERM—RETURNS IF NULL, ETC 


; ALLOWS NULL, NL, ' l'* AND / •- AS 

?VALID LINE TERMIES AND JUMPS OVER THEM 
;ALSO CALLS PUTLPT FOR YOU 
5 ER.TERM IS OTHER TERMIES SEEN 


oioc-- 

7E 

ISTERMx MOV A,M 


01OD "' 

B7 

ORA A 


01OE •“ 

C8 

RZ 


010F-- 

23 

I NX H 


0110"' 

CD 0243-' 

CALL PUTLPT 


0 113 •- 

FEOA 

CPI NL 


CllS^- 

C8 

RZ 


OHS" 

FE2C 

CPI ", -' 


0118"' 

C8 

RZ 


0119"' 

FE20 

CPI -' 


011 B "' 

C 8 

RZ 


01 IC- 

FE3B 

CPI 


Oll E- 

C8 

RZ 


01 IF-' 

OD 

DCX H 


0120 -' 

2B 

DCX H 

5 SEE IF NULL BEFORE IT 

0121 -' 

7E 

MOV A,M 

?IN CASE OF SKIP -999 

0122"' 

B7 

ORA A 

5WILL BE -> BEFORE STRING 

0123"' 

23 

I NX H 

5 POINT PAST NULL 

0124-' 

7E 

MOV A,M 

5 SO A DOESN' T HAVE NULL 

0125-' 

CD 0243-' 

CALL PUTLPT 

? SAVE F‘TR 

0128-' 

C8 

RZ 

5 OR AT ERROR 

0129"' 

CD 0000" 

CALL WARNFF 

5 WARN THEM 

012C-' 

544F4F204D55 

.ASCIZ /TOO 

MUCH ON LINE: / 

013F-" 

CD 0000 x 05 

CALL ARGLIN 

5 PRINT IT 

0142'" 

C3 002C -' 

JMP NLPNT 





5 *ISNL 

—RETURNS Z IF CR OR ? * 



IKISNL 

DOES KLB FIRST 



? IN 

HL->CHARACTER 



? OUT 

Z SET IF CHARACTER IS CR OR 5 OR NULL 

0145" 

CD 015B "' 

KISNL s 

CALL KLB 5 DO KLB FIRST 

0148"' 

7E 

I SNL s 

MOV A, M 

0149"' 

B7 


ORA A 

014 A •" 

C8 


RZ 

014B "' 

FE3B 


CPI 

014D " 

C8 


RZ 
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TDL ZSO CP/M DISK ASSEMBLER VERSION 2.21 
SUB - ZGRASS SUBROUTINES 
PRINT ROUTINES 


014E" 

FEOA 

CPI NL 

0150' 

C9 

RET 




5 *SCANNL—SCANS LINE TILL NEXT NL* 



5 IN 

HL-O-CHARACTER 



; OUT 

HL—>PAST NL 

0151"' 

7E 

SCANNLs 

MOV A 7 M 

0152': 

A7 


ANA A ?IS NULL? 

0153"' 

C8 


RZ 

0154"' 

-tO 

,C~ ■!' 


INX H 

0155- 

FEOA 


CPI NL ? IS NL. 

0157 •' 

G8 


RZ 

0158"' 

18F7 


JMPR SCANNL 5 LOOK MORE 



? *KLB- 

--KILLS OFF BLANX* 



? IN 

HL->CHARACTER, MAYBE BLANK 



5 OUT 

HL~>FIRST MON-BLANK CHARACTER 



5 KLBINC 

INCREMENTS HL FIRST 

015A" 

23 

KLBINCs 

INX H 

015B-" 

7E 

KLBs 

MOV A,M 

015C-' 

FE20 


CPI BLANK 

015E-" 

CO 


RNZ 

015F •" 

18F9 


JMPR KLBINC 



? *CLEAR IT—CLEARS FROM HL FOR BC BYTE: 

0161" 

E5 

CLEARIT5 

PUSH H 

0162-' 

D5 


PUSH D 

0163"' 

54 


MOV D,H 

0164" 

5D 


MOV E,L 

0165 •" 

13 


INX D 

0166" 

3600 


MVI M 7 0 

0168-' 

EDBO 


LDIR 

016 A " 

D1 


POP D 

016B-' 

El 


POP H 

016C"' 

C9 


RET 


? *SCANLAB—SKIPS OVER LABELS* 

016D 
0170 
0171 
0172 

5 *ACOF'Y—COPIES HL TO DE UNTIL. DEL IM IN A SEEN* 


CD 025F"' SCANLABs CALL CARTYP 5 SET CC"'S 

C8 RZ 5 RET IF DELIM 

23 INX H 

18F9 >JMPR SCANLAB 


0174-’ BE 

0175"' 2804 

0177- EDAO 
0179-' 18F9 


ACOF'Y 


CMP M 

jrz .. uin 

LDI 

■JMPR ACOF'Y 


COPY DELIM TOO 



TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 

SUB - ZGRASS SUBROUTINES 
PRINT ROUTINES 


017B- EDAO ..OUT5 LDI 

017D-' C9 RET 

5 -s-SCAIMB—SCANS PAST NEXT BLANK OR TO NL* 

;SCANS 

,5 IN—HL->CHARACTERS WITH POSSIBLE LEADING BLANX 
] ? OUT—HL—>AT BLANK FOLLOWING NONBLANK CHARS 
5 (I.E., IT SKIPS OVER A BUNCH OF NON-BLANKS) 

5 Z IS SET IF POINTING AT A NL, 5 OR NULL 
;Z CLEAR IF ~> AT A BLANK UPON EXIT 


017E-" 

CD 0145-' 

SCANSs CALL KISNL 


0181' 

C8 

RZ 


0182 

•~»o 

INX H 


0183-' 

7E 

MOV A,M 

" ' , 

0184" 

FE20 

CPI BLANK 


0186 •" 

20F6 

JRNZ SCANS 


0188 ** 

B7 

ORA A 


0189'' 

C9 

RET 

5 ^SWITCH—POPS ONE LEVEL IN A MACRO* 

■INs NUTTIN (USES MACTOP) 

50UT5 HL—>CODE 

5 A HAS RETURNED TYPE, DE HAS VALUE 

? FROM $RVSTUFF 

OLD MIB IS ZAPPED AND CALLER RESTORED 

018 A" 

C5 

SWITCHs PUSH B 

5SAVE B 

018B ■" 

FDE5 

PUSH Y 

? SAVE Y TOO 

018D" 

2A 625E 

LHLD MACTOP 

5 GET MIB 

0190-' 

7C 

MOV A,H 

?IS ZERO? 

0191 •" 

B5 

ORA L 

ZERROR ER.RET 

?IF SO, IS FROM *~LEVEL 

S AND IS BQOBOOC 

0192" 

2004 

+ JRNZ ..0001 


0194-' 

CD 0000s07 

+ CALL ERRPGM 


0197" 

0198" 

24 

+ .BYTE ER.RET 

+ . .0001s] 


0198" 

FD2A 625E 

LIYD MACTOP 


019C •" 

FD7E1A 

MOV A,$GOSUB(Y> 

?CHECK GOSUB COUNT 

019F" 

B7 

ORA A 

?IF #0, IS GOSUB RET 

01 AO" 

202F 

JRNZ ..DEC 

5 DO IT 

01A2 " 

01 0013 

LXI B,$RVSTUFF 

?POINT IY TO GOODIES 

01A5-" 

FD09 

DADY B 


01A7" 

CD 0000s09 

CALL GETOPND 

5 GET STUFF IN A&DE 

01A A" 

F5 

PUSH PSW 


01AB-" 

D5 

PUSH D 

;SAVE A,DE FOR EXIT 

01 AC •" 

7E 

MOV A,M 

5 IS $KEYBLK? 

01 AD' 

rroo 

CPI SMIBBLK 

5 INSTEAD OF $MIBBLK 

01AF" 

2003 

JRNZ „.DODD 

?IF SO, DON'T DELETE MIB 

01B1 ■" 

CD 0000 S'06 

CALL DELMIB 


01B4- 

01 000D 

..DODDS LXI B,$CALLER 

5 POINT TO CALLER 

01B7-" 

CD 022A"' 

CALL NXTABC 

7 M W « 

01 BA"' 

22 625E 

SI-ILD MACTOP 

5 STORE IT 

DIED" 

01 0005 

„.DONTs LXI B,$LINPTR 

;POINT TO CALLER RETURN 





TDL Z80 

CP/M DISK ASS 

EMBLER VER 

3ION 2-21 

PAGE 9 

SUB 

ZGRASS SUBROUTINES 



PRINT ROUTINES 




01 CO'' 

CD 022A" 


CALL NXTABC 

5 LINE 

01C3- 

D1 

.„GDONs 

POP D 

? GET RETURNED VALUES 

01C4 •" 

FI 


POP PSW 

5 BACK—WAS A=0? 

01C5 •" 

B7 


ORA A 


01C6-' 

2005 


•JRNZ --BYE 

;SOMETHING WAS PASSED! 

01C8 y 

3E04 

. . GOSX: 

NVI Ai$1VAL 

? D E F A U L T=S U C C E E D 

01CA •" 

11 0001 


LX I D, 1 


01 CD" 

FDE1 

■-BYES 

POP Y 


01CF " 

Cl 


POP B 


01 DO" 

C9 


RET 

"GO BACK 

01D1 

FD351A 

--DECS 

BCR $GOSUB(Y) 

5 DECREMENT COUNT 

01D4-" 

EB 


XCHG 

"DE HAD RETURN POINTER 

01D5-" 

18F1 


JMPR ..GOSX 

? ALL DONE 



; *STREQK—CHECKS IF 

TWO STRINGS EQUAL TO DELIM* 



? IN 

HL~>FIRST CHAR 

OF STR1 



99 

» 

DE~>FIRST CHAR 

OF STR2 



■ OUT ■ 

DE i HL SAME 




ft 

3 

Z SET IF STRINGS = TO DELIM 



«s 

Z CLEAR IF STRINGS NOT = 

01D7- 

D5 

STREQKs 

PUSH D 

;SAVE DE 

01DS" 

E5 


PUSH H 

5 AND HL 

0109" 

1A 

.. STROs 

LDAX D 

? GET CHAR DE POINTS AT 

01 DA" 

BE 


CMP M 

5 IS SAME AS HL POINTEE? 

01DB" 

2009 


JRNZ --STR1 

? IF ME, CHECK CARTYF'S 

01DD" 

CD 025F"' 


CALL CARTYP 

?CHECK TYPE 

01E0"' 

2809 


JRZ --STRQ 

?IF DELIM 

01E2 

23 


INX H 


01E3 

13 


INX D 


01E4 

18F3 


JMPR .. STRO 

5 TRY AGAIN 

01E6 

CD 025F •" 

.-STRls 

CALL CARTYP 

?DELIM? 

01E9 

2004 


JRNZ .. STR2 

7 u n tt 

01EB"' 

EB 

.. STRQs 

XCHG 

5 TRY OTHER ONE FOR DELIM 

01 EC 

CD 025F "' 


CALL CARTYP 

; SETS CC"'S OK 

01EF 

El 

. -STR2S 

POP H 


01F0-- 

D1 


POP D 


01F1 

C9 


RET 

? SIN(ARA) 



5 -H-FINDLAB—SEARCHES 

FOR A LABEL ON A LINE* 



; IN 

HL->LABEL SOMEWHERE 



? OUT 

HL->LINE BEGINNING WITH LABEL 



7 

OR ER- 

LAB GENERATED 

01F2-- 

C5 

FINDLAB 

s PUSH B 


01F3"' 

D5 


PUSH D 


01F4" 

FDE5 


PUSH Y 


01F 6" 

FD2A 625E 


LIYD MACTOP 


01 FA "' 

EB 


XCHG 


01FB-" 

FD6604 


MOV H 5 $STRPTR+1(Y) 

01FE"‘ 

FD6E03 


MOV L,$STRPTR(Y) 
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SUB ~ Z GRASS SUBROUTINES 
PRINT ROUTINES 


020101 000A 


LX I B,$SASC11 

5POINT AT STRING 

0204 09 


DAD B 


0205-' 060A 


MVI B,NL 

SLOAD B WITH NL 

0207- CD 01D7" 

... .FINOs 

CALL STREQK 


020A-' 280E 


■JRZ ..FI NX 

‘OKY—GOT IT 

020C" 7E 

..SCANS 

MOV A,M 

5 IS NULL? 

020D"' 23 


INX H 

?ADVANCE HL 

020E •- B7 


ORA A 

ZERROR ER.LABE 


020F" 2004 

~h 

•JRNZ . . 0002 


0211" CD 0000s07 

4 

CALL ERRPGM 


0214" 25 

+ 

.BYTE ER.LAB 


0215-' 

4* „ „ 00025 

3 


0215-" B8 


CMP B 

SIS A NL? 

0216-' 20F4 


JRNZ ..SCAN 

SNOPE, LOOK MORE 

0218-' 18ED 


JMPR ..FINO 

.5 CHECK FOR LABEL 

021 A " CD 0.160' 

. -FINXs 

CALL SCANLAB 

5 POINT PAST LABEL 

02 ID-' FDE1 


POP Y 


02 IF-' D1 


POP D 


0220-' Cl 


POP B 


0221-' C9 


RET 



? *NXTPTR, NXTLNK, NXTABC—DOES MOV HL,(HD* 
? NOTES BC IS CLOBBERED! 

; NXTPTR DOES MOV ML,(HL) 

; NXTLNK DOES MOV HL,UNLINK(HL) 

? NXTVAL DOES MOV HL,$NVALUE(HL> 

S NXTABC DOES MOV HL,BC(HL) 


SIN HL~>SOMETHING 

5 OUT HL CONTAINS THAT STUFF 

S. AND Z IS SET IF HL=0 


0222-' 

01 0005 

NXTVALs 

LX I B,$NVALUE 



0225 ' 

1803 


JMPR NXTABC 



0227' 

01 0003 

NXTLNKs 

LXI B,UNLINK 

‘NAME LINK 


022A-" 

09 

NXTABCs 

DAD B 5 ADD IN 

BC TO HL 


022B •" 

D5 

NXTPTRs 

PUSH D 



022C " 

5E 


MOV E,M 

5 GET IT 


022D -' 

23 


INX H 

5 SLOW STUFF 


022E-' 

56 


MOV DtM 

"GET SECOND 

HALF 

022F 

7A 


MOV A,D 

?CHECK FER 

t r." r-»»“} 

ZhrvU 

0230 -' 

B3 


ORA E 

; ? 


0231 -' 

EB 


XCHG 

5 SETS CC-'S 


0232-' 

D1 


POP D 

; E XIT 


0233 -' 

C9 


RET 





, ""vs *GETLPT—GETS LINPTR 

INTO HL FROM MACTOP* 

U^!d4 * 

FDE5 

GETLPTs 

PUSH Y 



0236*** 

FD2A 625E 


LIYD MACTOP 

“GET MACTOP 

ADDR 

023A*' 

FD6E05 


MOV L,$LINPTR(Y) 





21 
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SUB - ZGRASS SUBROUTINES 
PRINT ROUTINES 


023D" FD6606 MOV H, $I_INPTR+1 (Y) 

0240" FDE1 GETL.PX5 POP Y 

0242'' 09 RET 

5 *PUTLPT—PUTS LI.NPTR FROM HL INTO MACTOP* 


0243"' 

FDE5 

PUTLPT* PUSH Y 

0245" 

FD2A 625E 

LIYD MACTOP 

0249" 

FD7505 

MOV $LINPTR < Y),L 

024C'' 

FD7406 

MOV $LINPTR+1 (Y),H 

024F-" 

18EF 

JMPR GETLPX 




3 *INC5IY—ADDS 5 TO IY* 

0251 

C5 

INC5IY? PUSH B 

0252" 

01 0005 

LXI B,5 

0255 •' 

FD09 

IYOUTS DADY B 

0257' 

Cl 

POP B 

0258" 

C9 

RET 



3 *DEC5IY—SUBS 5 FROM IY* 

0259 " 

C5 

DECSIY s PUSH B 

025A" 

01 FFFB 

LX I B,—5 

025D-" 

18F6 

JMPR IYOUT 


3 *CARTYP—SETS CC'S ACCORDING TO WHAT HL POINTS AT* 

3 IN HL->CHARACTER 

3 OUT HL—>CHARACTER 

3 Z CLEAR, C CLEAR IF ALPHA 

3 Z CLEAR, C SET IF NUMERIC 

3 Z SET C CLEAR IF DELIM 

5 CARTYAs USES A INSTEAD OF M 


025F •" 

7E 

CARTYP! 

MOV 

0260" 

FE24 

CARTYAs 

CPI 

0262 •" 

2*82'"' 


JRZ 

0264" 

FE3Q 


CPI 

0266" 

FA 0282"' 


JM 

0269 •" 

FE3A 


CPI 

026B" 

FA 0284"' 


JM 

026E'- 

FE41 


CPI 

0270 •" 

FA 0282" 


JM 

0273" 

FE5B 


CPI 

0275•" 

FA 0286" 


JM 

0278 •" 

FE61 


CPI 

027A"' 

FA 0282"' 


JM 

027D-" 

FE7C 


CPI 

027F ■" 

FA 0286 •" 


JM 

0282" 

AF 

. .CDs 

XRA 

0283" 

C9 


RET 

0284•" 

37 

. . CNs 

STC 


A,M 3 GET CHARACTER 

5$ IS ALPHA 
.. CA 5 FOR US 

•' 0 '' ' 

. CEi 5 D3 DELIM 

9 " +1 

„ CIM 5 IS NUMERIC 

•"A'' 

.CD 3 IS DELIM 

. CA 5 IS ALPHA 

141Q 3 LITTLE A 

.CD 5 IS DELIM 

141Q+27 SLITLE Z+l 

.CA 5 IS ALPHA 

A 3 SET Z, CLEAR CARRY 

3 SET CARRY,Z IS CLEAR 



TDL Z80 

CP/M DIS 

K ASSEMBLER VERSION 

2.21 


SUB 

ZGRASS 

SUBROUTINES 




PRINT ROUTINES 





n *p r Fi *' 

C9 


RET 



0286 •" 

A7 

..CAs 

ANA 

A 

?CLEAR CARRY, 

5 LEAVE Z CLEAR 

0287-' 

C9 


RET 



0288" 


SUBENDS 
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END 
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SUB . - ZGRASS SUBROUTINES 

+++++ SYMBOL TABLE +++++ 


AASN 

005F 

ABS 

008C *“ 


ACOPY 

0174'' 

I 

ALLOC 

0000504 

X 

ARGLIN 

OOOOs05 X 

ARGSTK 

60CC 


BACKGR 

65CC 


BLANK 

0020 


BOTRAM 

6000 

BOTTOM 

64A9 


CARTYA 

0260 **’ 

I 

CARTYF' 

025F“ 

I 

CHARSL 

65DD 

CLEARI 

0161 •" 

I 

CLEARS 

60CA 


CNTRL 

oooc 


CNTRLC 

65CD 

CNTRLO 

65D9 


CNTRLU 

0015 


CNTRLZ 

65E4 


CF'LARE 

611C 

CPLSIZ 

0140 


CR 

GOOD 


CSBLOK 

668D 


CSFLAG 

6260 

CURCX 

6814 


CURCY 

6816 


CURREN 

64A5 


C« CO 

0011 

C. Cl 

0012 


C. CX 

OOOB 


C«C Y 

OOOD 


e.DP 

0013 

C. ST 

0002 


C.X 

0003 


C. XF 

OOOF 


L- h X 5 

0007 

C.Y 

0005 


C.YF 

0010 


C.YS 

0009 


DDTOIM 

65CE 

DECS IY 

0259 

I 

DELMIB 

OOOOs06 

X 

DEVBL 

6589 


DEVCLO 

6579 

DEVCL1 

657B 


DEVCL2 

657D 


DEVCL3 

657F 


DEVCL4 

6581 

DEVCL5 

6583 


DEVCL6 

6585 


DEVCL7 

6587 


DEVFB 

65CB 

DEVHCB 

658F 


DEVMO 

658B 


DEVNM 

65B7 


DEVNT 

658D 

DEVTNA 

65BB 


DEVTIMB 

65BF 


DEVTNC 

65C3 


DEW A 

65BD 

DEWAR 

6579 


DEWB 

65C1 


DEWBL 

6591 


DEWC 

65C5 

DEWD 

65C9 


DEWN 

65B9 


DEWS 

65C7 


DEVXCD 

65B3 

DEVYCD 

65B5 


DOLF'LH 

62E8 


DOLPPT 

62EA 


DUMBST 

6577 

EDBCNT 

64AD 


EDCCNT 

64A7 


EDLONG 

6812 


EDMODE 

681C 

EDNAME 

64 A1 


EDNCX 

680C 


EDNCY 

680E 


EDNEWS 

64A5 

EDOCX 

6808 


EDOCY 

680A 


EDF-N 

6806 


EDPO 

6804 

EDF'TRC 

64AB 


EDPTRL 

64A9 


EDSTR 

681A 


ERASIT 

0002 

ERRPGM 

OOOOs07 

X 

ER *ARA 

002F 


ER.ARG 

0034 


ER.ASN 

0015 

ER.BOX 

001A 


ER.CHN 

0002 


ER.CMD 

00 IF 


ER.CNV 

0016 

ER.COR 

00 IB 


ER.CTL 

0036 


ER.DEL 

0026 


ER„DIM 

0030 

ER.DIV 

0018 


ER. DP 

0037 


ER.DSK 

0019 


ER.EDT 

0035 

ER.FMT 

0038 


ER.FNF 

001C 


ER.FOR 

0028 


ER.IMP 

0003 

ER.LAB 

0025 


ER.MAC 

0022 


ER.NAE 

002D 


ER.NAM 

0029 

ER.NEG 

003A 


ER.NOT 

0023 


ER.'NUL 

0039 


ER.MUM 

002B 

ER.NXT 

00 ID 


ER.OFL 

0017 


ER.OPN 

0014 


ER.OVE 

00 IE 

ER.PAR 

002A 


ER . REN 

002C 


ER.RET 

0024 


ER,SEP 

0021 

ER.SNP 

0031 


ER.SPC 

002E 


ER.STK 

0004 


ER..SW 

0032 

ER „ TER 

0020 


ER.UFL 

0033 


ER.UNF 

0027 


EXTDEL 

002E 

E.HVAL 

0002 


E.LVAL 

0001 


E.SIZ 

0005 


E.TYP 

0000 

E. VAL 

0001 


FCNTH 

65D2 


FCNTI 

65D3 


FCNTJ 

65D4 

FCNTK 

65 D 5 


FGNTL 

65D6 


FCNTV 

65E0 


FCNTY 

65E3 

FINDLA 

01F2-" 

I 

FIRST 

64 Ac* 


FLAGS 

65CB 


FOREGR 

65D0 

FRAGSI 

0400 


FREE 

0000 s 08 

X 

FREEL.S 

65E5 


FSTDOL 

648C 

FSTINT 

62EC 


FWDPTR 

65E7 


GETLPT 

0234 - " 

I 

GETLPX 

0240 •- 

GETOPN 

0000 5 09 

X 

HCAREA 

6593 


HEXBYT 

00B8" 

I 

HEXHL 

00B7" I 

TncSiy 

0251 

I 

INCRO 

6 5 F 9 


INHEX 

0096" 

I 

ISNL 

0148"' I 

ISTERM 

010G" 

I 

IYOUT 

0255-' 


JUNK 

6542 


KBLGCK 

65F1 

KEYFLG 

67FF 


KEYPTK 

6533 


KEYTRK 

67F7 


KISNL 

0145-’ I 

KLB 

015B-- 

I 

KLBINC 

015A-" 


L.F 

OOOA 


LISTON 

65E2 

MACSTU 

6536 


MACTOP 

625E 


MAXFRG 

0040 


MNMX 

65EB 

NBL.KB 

0000 


NBLKM 

0001 


NEWBOT 

6810 


NL 

OOOA 

NLPNT 

0020 

I 

NSADDR 

6802 


NUMBUF 

64A3 


NXTABC 

022A-' I 

NXTLNK 

0227' 

I 

NXTPTR 

022B-' 

I 

NXTVAL 

0222" 

I 

OLDCHR 

64A0 

OLDCUR 

649F 


OLDKEY 

649D 


OLDXY 

65EF 


ONEBUF 

6729 

OPRL 

0014 


OPRSP 

655B 


OPRSTK 

6547 


0PR8Z 

655D 

DUTCH 

OOOOs OA 

X' 

OUTOFF 

62E7 


F'CNT 

655E 


PDECA 

0036-' I 

PDECB1 

003D 


PDECBC 

003C "' 

I 

PIXVAL 

65ED 


POINTE 

64A7 

PONOFF 

65DA 


PRINTA 

00 IB-' 

I 

PRINTF 

OOOD"' 

I 

PRINTH 

001 A - " I 

PRINTR 

6540 


PUTLPT 

0243" 

I 

RAMEND 

7FFF 


RAMSTR 

6900 

RANSHT 

655F 


RMDTMP 

6538 


RUBACK 

0005 





21 


PAGE 3.4 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2„ 
SUB - ZGRASS SUBROUTINES 
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RUBOUT 

007F 


SAVESP 

625C 


SCANS 

017E **' 

I 

SCANLA 

016D 

SCANNL 

0151 •* 

I 

SCNEED 

0004 


SCRWIN 

67CD 


SOPRSP 

653D 

SOPRSZ 

653F 


STACK 

60C8 


STAKTO 

6000 


STREQK 

01D7 

STRSIZ 

6800 


SUBEND 

0288 *" 


8UBSTU 

6534 


SWITCH 

018A 

TAB 

0009 


TABPN1 

0032 x 


TABPNT 

0030 

I 

TAF'BUF 

64B3 

TAPCON 

64AF 


TAPPRO 

64B1 


TBFEND 

6533 


TEMPCH 

OOCF 

TEMPHD 

60CA 


TEMPS 

62E5 


TEMPUM 

00E4-" 

I 

TMPARG 

67AD 

TOP 

6818 


TTYBEG 

6 z! 6 1 


TTYEND 

62E1 


TTYINT 

62E3 

TTYPTR 

62E1 


TXTWIN 

67E2 


UARTFL 

649C 


USREND 

65F1 

V3PTR 

6573 


VDCHAR 

649E 


VDNLF 

65CF 


VI F'LH 

6545 

VOICED 

6563 


WARNFF 

0000 •** 

I 

WRMODE 

65EE 


ZGIM2 

0001 

ZGREND 

68 ID 


$AADR 

0010 


$ADDRF 

0007 


$ADDRI 

0005 

$ADDRS 

0009 


$ANY 

001A 


$ANYNA 

FFFC 


$ANYVA 

FFFE 

*ARGPT 

0011 


$BGPTR 

OOOF 


$BNDL 

0007 


$CALLE 

OOOD 

$CMDAD 

003.8 


$CPLBL 

002A 


TCSBLO 

0028 


$DATAP 

0007 

iDOLDE 

0001 


$DOLOG 

0002 


$DVAL 

0000 


SEND 

001C 

$FADR 

OOOE 


$FLAGS 

0002 


$FORBL 

0024 


$FORF’T 

OOOB 

$FVAL 

0006 


$GGSUB 

001A 


$1 ADR 

OOOC 


$INF'BU 

0018 

$INPPT 

0016 


$IVAL 

0004 


$KEYBL 

0026 


$LENGT 

0001 

$L I NF'T 

0005 


$LOCF'T 

0009 


$MIBBL 

0022 


$MIBEN 

00 IB 

$NAMAD 

OOOA 


$NAME 

OOOA 


$NASC I 

0009 


$NDEL 

0080 

$NLINK 

0003 


$NULL 

0002 


$NVAL.U 

0005 


$REPEA 

00 IE 

$RVSTU 

0013 


$SAME 

0020 


TSASCI 

OOOA 


fiSLEN 

0006 

$STRAD 

0008 


$STRPT 

0003 


$TAF 

0000 


$TYPE 

0000 

$USE 

0005 


.BLNK. 

0000 s 03 

X 

»DATA. 

0000* 

X 

.PROG. 

0288 


/ 
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II 

INSERT 

AsS.ASM 


@. 

REMARK 

/ 


e 



•ft 

@ 



•ft *ft *ft 

@ 



•ft-ft-ft 

e 



•ft-ft-ft-ft-ft-ftft 

@ 



■ft 

e 



•ft 

e 



•ft 




•ft 



& * 

@ **##**# 

@ "WHEN YOU CARE ENOUGH TO PROGRAM 

@ THE VERY BEST" 

@ 

<5 ZGRASS V2.OOOOOOOO 

@BY JAY FENTON, NOLA DONATO, AMD TOM DEFANTI 

@ (C) 1978 

e 


e/ 

.INSERT 


A," ZRAM, ASM 
.LINK 
. PREL 

.IDENT DOL 
.INTERN DELMIB 
.INTERN DOCHK 
.INTERN KILMIB 
.INTERN MAKMIB 
.INTERN STOP 


.EXTERN ABORT 
.EXTERN ALLOC 
.EXTERN ALLOCD 
.EXTERN ARG 
.EXTERN CZCHEK 
.EXTERN CLEARIT 
.EXTERN DECSIY 
.EXTERN DISPLAY 
.EXTERN ERRPGM 
.EXTERN EVAL 
.EXTERN EVALARG 
.EXTERN FREE 
.EXTERN FREEALL 
.EXTERN GETL.PT 
.EXTERN GETOPND 
.EXTERN INC5IY 
.EXTERN INCUSE 
.EXTERN ISTERM 
.EXTERN KBCNLP 
.EXTERN KISNL 
.EXTERN LINER 
.EXTERN NXTABC 
.EXTERN NXTLNK 
.EXTERN NXTPTR 
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DOL - DOL—DOLOOP STUFF AMD MIB STUFF 


.EXTERN NXTVAL 
.EXTERN PUTOPND 
.EXTERN PUTLPT 
.EXTERN SDEL 
.EXTERN SNAP 


? DOLOOPED MACRO PROCESSING LOOP 
5 CALLED WHILE WAITING FOR HUMAN INPUT 
5 THIS ROUTINE WILL EXECUTE ONE STATEMENT FROM 
5 EACH DOLOOPED MACRO ON THE DOLOOP LIST 




5 AND THEN RETURN 


oooo 

2A 625E 

DOCHK 5 LHLD 

MACTQP 


0003 

E5 

PUSH 

H 


0004 

2A 62E8 

LHLD 

DOLPLI-I 

? START LIST AT TOP 

0007“ 

DD21 62D9 

LX I 

X, DOLF'LH 

|~$BGPTR 

OOOB •“ 

22 62EA 

..NEXT5 SHLD 

DOLF’PT 

5 STUFF INTO WORKING PTR 

OOOE “' 

7C 

MOV 

A,H 


QOOF“' 

B5 

ORA 

L 

5 IS PTR NULL? 

0010'“ 

2846 

■JRZ 

..DONE 

5 KICKOUT IF DONE 



5 SHOULD WE DELETE THIS 

MIB? 

0012“ 


INX 

H 

■ MOVE TO FLAG BYTE 

0013“ 

23 

I NX 

H 


0014 “ 

CB4E 

BIT 

$DOLDEL 1 

M 

0016 •“ 

2B 

DCX 

H 


0017“ 

2B 

DCX 

H 


0018“ 

2813 

JRZ 

..NDIE 

; no 



? DELETE BIT 

IS SET - SO 

KILL THIS GUY OFF 

001A •" 

E5 

PUSH 

H 


001B 

01 OOOF 

LX I 

B,$BGPTR 

?POINT AT NEXT 

001E'“ 

CD 0000519 

CALL 

NXTABC 


0021“ 

DD7410 

MOV 

TBGPTR+1 (X),H 5 SET PREVIOUS 

0024“ 

DD750F 

MOV 

$BGPTR(X )iL 5 TO POINT AT US 

0027“' 

El 

POP 

H 

? RELEASE MEMORY 

0028 •“ 

CD 0138“ 

LALL 

DELMIB 


002B “ 

1823 

.JMPR 

..NEXM 

5 NEXT MACRO 



? GOOD DOLOOPED MACRO 


002D 

/. •“•cnp 

.„NDIEs SHLD 

MACTOP 

5 SET THIS GUY AS TOP 

0030 “ 

CD 0000•'ll 

CALL 

GETLPT 

? GET STRING SCANNING PTf 

0033 “' 

CD 0000s18 

. . LL* 5 l*all 

L.INEFV 

? EVAL A LINE 

0036“ 

CD 0000508 

CALL 

CZCHEK 

;DEBUG/CNTRLZ? 

0039 

DD2A 62EA 

LI XD 

DOLPPT 

5IX—>CURRENT MIB 



•“ DID THIS GUY RETURN? 


003D “ 

CD 0000515 

CALL 

ISTERM 

? PROPER TERMY? 

0040 “ 

B7 

ORA A 

? NULL? 

0041 “ 

200D 

JRMZ 

..NEXM 

? NOP--MEXT MACRO 



5 YES HE DID 

- RESET STRING PTR TO FIRST CHAR 

0043 “' 

DD6604 

MOV 

H,$STRPTR+1(X) 

0046“' 

DD6E03 

MOV 

L,$STRPTR(X) 

0049 •“ 

01 000A 

LX I 

B,$SASCII 

004C “' 

09 

DAD 

B 




5 STUFF POINTER BACK INTO MIB 

004D •“ 

CD 00005 IE 

CALL 

PUTL.PT 
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5 MOVE TO NEXT MIB ON CHAIN AND TRY TO DOIT 


0050" 

DD6610 

. .NEXM? 

MOV 

H,$BGPTR+1<X) 

0053" 

DD6E0F 


MOV 

L,$BGPTRCX) 

0056" 

18B3 


JMPR 

..NEXT 

0058 •" 

El 

. .DONE! 

POP 

H 

0059" 
005C •" 

22 625E 

C9 


SHLD 

RET 

MACTOP 


? COMMAND TO UNDOLOOF' A MACRO 




5 THIS GUY JUS 

T SETS A DIE! FLAG 



? WHICH THE DGLOOP DISPATCHING LOOP LOOKS 



? AT TO DO THE 

ACTUAL DELETION 



M.GMDC STOP,..UNL X,0,SNAP 

7 . .UNLA, . .UNLSK 

005D “ 

18 

+STOP: .BYTE 

$CMDADR 


005E 

05 

+ .BYTE 

(..UNLX-STOP)/16+1 

005F;'* 

00 

+ .BYTE 

0 


0060” # 

0000 s 20 

+ .WORD 

SNAP 


0062 •" 

006C"' 

+ «WORD 

..UNLS 


0064" 

0075" 

+ .WORD 

..UNLA 


0066" 

53544F5000 

+ .ASCIZ 

+ ] 

/STOP/ 


006B ■" 

00 

.BYTE 

0 

5 NO SWITCHES 

006C'" 

CD 0000:17 

..UNLSS CALL K 

ISNL 

?IS STOP ALONE? 

006F" 

CA 0000 s 04 

JZ ABORT 


0072 •" 

CD 0000s07 

CALL 

ARG 


0075 

08 IE 

..UNLA: .BYTE 

$STRADRi 

^REPEAT 

0077' 

E5 

PUSH 

H 


0073’* 

FD7E00 

..UNLL: MOV 

A 7 0 ( Y) 

5 MORE TO DO 

007B” 

A7 

ANA 

A 


007C *’* 

282C 

JRZ . . 

DOUT 

s DONE 

007E •" 

FD5602 

MOV 

D 7 2 (Y) 

; DE=STRING ADDR 

0081 •" 

FD5E01 

MOV 

E 7 1 (Y) 


0084-' 

2A 62E8 

LHLD 

DOLPLH 

; LIST TOP 

0087" 

7C 

..ZAP: MOV 

A, H 


0088" 

B5 

ORA 

L 


0089 •" 

2810 

JRZ 

.. NULL 

5 NULL IF NOFIND 

008B'" 

23 

I NX 

H 

5 ELSE STEP 
? TO STR ADDR 



? TO STRING ADDRESS 


008C 


I NX 

H 


00 SD" 

*”!* O 

I NX 

H 


008E •" 

7E 

MOV 

A, M 

5 COMPARE TO 

008F •" 


I NX 

H 

?SEARCH TARGET 

0090 •" 

BB 

CMP 

E 


0091 •" 

200D 

JRNZ 

.. MONO 

5 NO MATCH 

0093 ■" 

7E 

MOV 

A, M 


0094" 

BA 

CMP 

D 


0095-' 

2009 

JRNZ 

.. MONO 




s WE GOT A LIVE ONE 


0097 " 

2B 

DCX 

H 

5 BACK TO FLAGS 

0098-' 

2B 

DCX 

H 


0099-' 

CBCE 

SET 

$DOLDEL, 

M 5 SAY DELETE HIM 
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009B •" 

CD 0000:13 

..NULL! CALL INC5IY 

009E- 

18D8 

JMPR 

..UNLL 



5 MOVE ON DOWN 

THE LIST... 

00AO - 

01 OOOB 

..NONO: LXI 

B,$BGPTR~4 

00 A3 

09 

DAD 

B 

00A4-" 

7E 

MOV 

Ai M 

00A5" 


I NX 

H 

00A6 •" 

66 

MOV 

H,M 

00A7" 

6F 

MOV 

L» A 

00A8 

18DD 

JMPR 

. . ZAP 

00 A A " 

El 

..BOUT: POP H 


OOAB" 

C9 

RET 


00 AC 


„ JJNLX: 




S PROCEDURE TO 

BUILD AN MIB 


NEXT PTR 


5 NEEDS! 

? HL->DELIM FOLLOWING MACRO NAME IN LINE 
; RETURNS! 


5 IX - MIB ADDRESS 
5 HL->LINE TERMINATOR 

5 MIB SETUP WITH ARCS PARSED AND STUCK AT 
5 $MIBEND 


00 AC-' 

C5 

MAKMIB: PUSH B 


00 AD 

D5 

PUSH D 


00 AE •" 

E5 

PUSH H 


00 AF ' 

D5 

PUSH D 

? SAVE NAMEBLOCK FWA 

OOBO**' 

3E05 

MVI A,5 

5 GET 6 BLOX 

00B2-* 

CD 0000!05 

CALL ALLOC 

?GET MIB SPACE 

00B5 •*“ 

E5 

PUSH H 

5 SAVE FWA 

00B6 

3622 

MVI M,$MIBBLK 

STAG IT 

GOBS' 

23 

INX H 

5 SKIP TAG 

00B9" 

23 

INX H 

SAND LENGTH 

OOBA' - 

01 00IB 

LX I B, 4>MIBEND 

5 CLEAR STUFF 

00BD-" 

CD 0000s0? 

CALL CLEARIT 


00C0-" 

DDE 1 

POP X 

5 GET MIBFWA BACK 

0QC2 

El 

POP H 

5 GET NAMEBLOCK FWA 

00C3 •" 

CD 0000:1C 

CALL NXTVAL 

SPOINT AT STRING 

00C6-" 

54 

MOV DjH 


OOC7-' 

5D 

MOV EiL 

5 INCREMENT USE COUNT 

00C8 - 

CD 0000:14 

CALL INCUSE 


OOCB-' 

DD7503 

MOV $STRPTR(X),L 

5 POINT STRPTR 

OOCE-' 

DD7404 

MOV $STRPTR+1(X) 

,H 

00D1 •' 

01 OOOA 

LXI B,^SASCII 

5 POINT ASCII 

OOD4-' 

09 

DAD B 


00D5-" 

DD7505 

MOV $LINPTR( X )7 L 

00D8 

DD7406 

MOV $LINPTR+1(X) 

jH 

0ODB •" 

El 

POP H 

5 GET CALLING LINE PTR 

OODC •" 

CD 0000s 13 

CALL INC5IY 

5 FIX 

OODF 

FDE5 

PUSH Y 

5 SAVE IY STACK 

00E1 •" 

DDES 

PUSH X 

5 MIBFWA 

00E3 •" 

FDE1 

POP Y 

5 IN Y 

00E5-" 

01 00IB 

LX I B, f>! v l I BEND 


00E8 

FD09 

DADY B 

5 WHERE TO STICK IT 

OOE A 

FDE5 

PUSH Y 

5 PUT ARGPTR IN 

OOEC" 

Cl 

POP B 

S MOV $(X)iY 
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OOED"' 

DD7111 


MOV $ARGPTR(X),C 

;MOV *+i<X) , I 

OOF 0 •" 

DD7012 


MOV $ARGPTR+1(X) 

7 B 

OOFS " 

FD360000 

..MORES 

MVI 0(Y),$TAF 

STERMINATE LIST SO FAR 

00F7 •" 

CD 0000-16 


CALL KBCNLP 

5 ARCS?? 

OOFA"’ 

2816 


•JRZ . . DONE 

5 NONE (LEFT) 

OOFC" 

FDE3 


XTIY 

?SETUP FOR EVAL 

OOFE 

CD 0000 s OE 


CALL EVALARG 


0101 -■ 

CD 0000s12 


CALL GETOPND 

5 GET IT 

0104" 

FDE3 


XTIY 

S MIBEND STACK BACK 

0106" 

CD 0000s1D 


CALL PUTOPND 

5 STICK IT THERE 

0109" 

CD 0000s13 


CALL INC5IY 

5 POINT TO NEXT 

01OC" 

FD360000 


MVI 0 < Y),$TAF 

“TERMINATE LIST 

011.0' 

18E1 


•JMPR . . MORE 

5 LOOK FER MORE 

0112" 

FDE5 

..DOMES 

PUSH Y 

5 SETUP FOR ALLOCD 

0114"' 

Dl 


POP D 


0115"' 

13 


INX D 

?POINT 1 PAST 

0116"' 

E5 


PUSH H 

“SAVE CURRENT LINE PTR 

OUT¬ 

DDES 


PUSH X 

5 GET MIBFWA 

DID?"' 

El 


POP H 

?INTO HL 

011A"' 

CD 0000 s 06 


CALL AL.LOCD 

?RELEASE EXTRA 

01 ID"' 

El 


POP H 

5 RESTORE H 

01 IE"' 

FDE1 


POP Y 


0120"' 

CD 0000sOA 


CALL DECSIY 


0123"' 

Dl 


POP D 


0124"' 

Cl 


POP B 


0125"' 

C9 


RET 

■ LEAVE WITH IX->MACTOP 


5 KILMIB—CHAINS MIB"'S BACKWARDS, DELETING ALL 




5 HL. IS USUALLY CONSIDERED CLOBBERED 




5 AND SO IS BC 



0126"' 

7C 

KILMIBs MOV A,H 

* HL~>FIRST MIB 

TO GO 

0127"' 

B5 

ORA L 



0128"' 

C8 

RZ 



0129"' 

7E 

MOV ATM 

; CHECK IF $MIBBL.K 

012 A"' 

FE22 

CPI S-MIBBLK 

5 IF NOT, MAYBE 

ALREADY 

012C-" 

CO 

RIMZ 

;GONES 


012D "' 

CD 0138"' 

CALL DELMIB 

DELETE IT AND 

HANGIES 

0130"' 

01 GOOD. 

LXI B,$CALLER 



0133"' 

CD 0000s19 

CALL NXTABC 

5 CHAIN TO PREV 

CALLER 

0136"' 

1 SEE 

•JMPR KILMIB 

■ TRY TRY AGAIN 






?DELMIB—DELETES MIB AND 

ALL STUFF HANGING OFF 

0138“ 

05 


DELMIBs PUSH B 


0139"' 

ES 


PUSH H 


013A"' 

01 

OOOB 

L.X I B, $FDRPTR 

? DELETE 

013D"' 

CD 

OOOOs19 

CALL NXTABC 


0140"' 

CEf 

0000s10 

CALL FREEALL 

? ALL FORBLOX 

0143"' 

El 


POP H 


0144"' 

ES 


PUSH H 


0145"' 

01 

0003 

LXI B,$STRPTR 

? DECUSE COUNT 

0148"' 

CD 

OOOOs19 

CALL NXTABC 

5 POINT AT STRING 
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014BCD OOOOs IF 
014E-' El 
014F"' Cl 
0150" C3 OOOOsOF 


CALL SDEL 
POP H 
POP B 
JMP FREE 


“ DEC IT 
5 RESTORE H 

“ THEM THE MIB ITSELF 


END 
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AASN 

005F 


ARG 

0000:07 

X 

BOTRAM 

6000 


CLEARS 

60CA 


CNTRLU 

0015 


CR 

OOOD 


CURCY 

6816 


c.ci 

0012 


C. ST 

0002 


C. Y 

0005 


DECS IY 

0000:OA 

X 

DEVCLl 

657B 


DEVCL5 

6583 


DEVHCB 

658F 


DEVTNA 

65BB 


DEWAR 

6579 


DEWD 

65C9 


DEVYCD 

65B5 


DOLPPT 

62EA 


EDLONG 

6812 


EDNCY 

680E 


EDPN 

6806 


EDSTR 

681A 


ER.ARG 

0034 


ER.CMD 

00 IF 


ER.DEL 

0026 


ER.DSK 

0019 


ER.FOR 

0028 


ER.NAE 

002D 


ER.NUL 

0039 


ER.OPIM 

0014 


ER.RET 

0024 


ER.ST 0004 


ER.UNF 

0027 


E.HVAL 

0002 


E. VAL 

0001 


FCNTK 

6505 


FIRST 

64Ad 


FREE 

0000 s OF 

X 

FSTINT 

62EC 


HCAREA 

6593 


ISTERM 

0000:15 

X 

KEYFLG 

67FF 


KISNL 

0000:17 

X 

MACSTU 

6536 


MNMX 

65EB 


NL 

000A 


NXTLNK 

0000:1A 

X 

OLDCUR 

649F 


OPRL 

0014 


OUTOFF 

62E7 


PONOFF 

65DA 


RAMEND 

7FFF 


RUBACK 

0005 


SCRWIN 

67 CD 



ABORT 

0000:04 

X 

ARGSTK 

60CC 


BOTTOM 

64A9 


CNTRL 

oooc 


CNTRLZ 

65E4 


CSBL.OK 

668D 


CURREN 

64A5 


C.CX 

OOOB 


C.X 

0003 


C. YF 

0010 


DELMIB 

0138- 

I 

DEVCL2 

657D 


DEVCL6 

6585 


DEVMQ 

658B 


DEVTNB 

65BF 


DEWB 

65C1 


DEVON 

65B9 


DISF'LA 

0000:OB 

X 

DUMBST 

6577 


EDMODE 

681C 


EDNEWS 

64 A5 


EDPO 

6804 


ERASIT 

0002 


ER.ASN 

0015 


ER.CNV 

0016 


ER.DIM 

0030 


ER.EDT 

0035 


ER.IMP 

0003 


ER.NAM 

0029 


ER.NUM 

002B 


ER.OVE 

00 IE 


ER.SEP 

0021 


ER.SW 0032 


EVAL 

0000:OD 

X 

E.LVAL 

0001 


FCNTH 

65D2 


FCNTL 

65D6 


FLAGS 

65CB 


FREEAL 

0000:10 

X 

FWDPTR 

65E7 


INC5IY 

0000:13 

X 

JUNK 

6542 


KEYPTK 

6533 


LF 

OOOA 


MACTOP 

625E 


NBLKB 

0000 


NSADDR 

6802 


NXTPTR 

0000S IB 

X 

OLDKEY 

649D 


OPRSP 

655B 


F'CNT 

655E 


PRINTR 

6540 


RAMSTR 

6900 


RUBOUT 

007F 


SDEL 

0000:IF 

X 


ALLOC 0000:05 X 
BACKGR 65 CC 
CMARSL 65DD 
CNTRLC 65CD 
CPLARE 611C 
CSFLAG 6260 
CZCHEK 0000:08 X 
C.CY OOOD 
C.XF 00OF 

C.YS 0009 
DEVBL 6589 
DEVCL3 657F 
DEVCL7 6587 
DEVNM 65B7 
DEVTNC 65C3 
DEVVBL 6591 
DEWS 65C7 
DOCHK 0000- I 
EDBCIMT 64AD 
EDNAME 64A1 
EDOCX 6808 
EDPTRC 64AB 
ERRPGM 0000:OC X 
ER.BOX 001A 
ER.COR 00IB 
ER.DIV 0018 
ER.FMT 0038 
ER.LAB 0025 
ER.NEG 003A 
ER.NXT 00ID 
ER.PAR 002A 
ER.SNP 0031 
ER.TER 0020 
EVALAR 0000:OE X 
E.SIZ 0005 
FCNTI 65D3 
FCNTV 65E0 
FOREGR 65D0 
FREELS 65E5 
GETLPT 0000:11 X 
INCRO 65E9 
KBCNLP 0000:16 X 
KEYTRK 67F7 
LINEF' 0000: 18 X 
MAKMIB 00AC-- I 
NBLKM 0001 
NUMBUF 64A3 
NXTVAL 0000:1C X 
OLDXY 65EF 
OPRSTK 6547 
PIXVAL 65ED 
PIJTLPT 0000: IE X 
RANSHT 655F 
SAVESP 625C 
SNAP 0000:20 X 


ALLOCD 

0000:06 

X 

BLANK 

0020 


CLEARI 

0000:09 

X 

CNTRLO 

65D9 


CPLSIZ 

0140 


CURCX 

6814 


c.co 

0011 


C . DP 

0013 


C. XS 

0007 


DDTON 

65CE 


DEVCLO 

6579 


DEVCL4 

6581 


DEVFB 

65CB 


DEVNT 

658D 


DEVVA 

65BD 


DEWC 

65C5 


DEVXCD 

65B3 


DOLPLH 

62E8 


EDCCNT 

64A7 


EDNCX 

680C 


EDOCY 

680A 


EDPTRL 

64A9 


ER.ARA 

002F 


ER.CHN 

0002 


ER.CTL 

0036 


ER. DP 

0037 


ER.FNF 

001 c 


ER.MAC 

0022 


ER.NOT 

0023 


ER.OFL 

0017 


ER.REN 

002C 


ER.SPC 

002E 


ER.IJFL 0033 


EXTDEL 

002E 


E.TYP 

0000 


FCNTJ 

65D4 


FCNTY 

65E3 


FRAGSI 

0400 


FSTDOL 

648C 


GETOPN 

0000:12 

X 

INCUSE 

0000:14 

X 

KBLOCK 

65F1 


KILMIB 

0126- 

I 

LISTON 

65E2 


MAXFRG 

0040 


NEWBOT 

6810 


NXTABC 

0000:19 

X 

OLDCHR 

64A0 


ONEBUF 

6729 


OPRSZ 

655D 


POINTE 

64A7 


PUTOF’N 

0000:ID 

X 

RMDTMP 

6538 


SCNEED 

0004 


S0PR8P 

653D 
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SOPRSZ 

653F 


STACK 

60.C8 

STAKTO 

6000 

STOP 

005D "■ 

STRSIZ 

6800 


SIJBSTU 

6534 

TAB 

0009 

TAPBUF 

64B3 

TAPCON 

64AF 


TAPPRO 

64B1 

TBFEND 

6533 

TEMPHD 

60CA 

TEMPS 

62E5 


TMPARG 

67 AD 

TOP 

6818 

TTYBEG 

6261 

ttyemd 

62EI 


TTYINT 

62E3 

TTYPTR 

62E1 

TXTW.TN 

67E2 

UARTFL 

649C 


USREND 

65F1 

V3PTR 

6573 

VDCHAR 

649E 

VDNLF 

65CF 


VIPLH 

6545 

VOICED 

6563 

WRMODE 

65EE 

ZGIM2 

0001 


ZGREND 

68 ID 

$AADR 

0010 

$ADDRF 

0007 

$ADDRI 

0005 


*ADDRS 

0009 

$ANY 

001A 

♦ANYNA 

FFFC 

$ANYVA 

FFFE 


$ARGPT 

0011 

TBGPTR 

00 OF 

$BNDL 

0007 

$CALLE 

OOOD 


»CMDAD 

0018 

♦CPLBL 

002A 

♦CSBLO 

0028 

SDATAP 

0007 


$DOLDE 

0001 

$ DOL. 00 

0002 

$DVAL 

0000 

$END 

001C 


«FADR 

OOOE 

$FLAGS 

0002 

♦FORBL 

0024 

♦FQRPT 

OOOB 


$FVAL 

0006 

$GOSUB 

001A 

$ I ADR 

OOOC 

♦INPBU 

0018 


$INPPT 

0016 

$1VAL 

0004 

♦KEYBL 

0026 

*LENGT 

0001 


$LIMPT 

0005 

$L.OCPT 

0009 

$MIBBL 

0022 

$MIBEM 

00 IB 


$NAMAD 

OOOA 

♦NAME 

OOOA 

♦NASCI 

0009 

*NDEL 

0080 


UNLINK 

0003 

♦MULL 

0002 

♦NVALU 

0005 

$REPEA 

00 IE 


♦R'ySTU 

0013 

f SAME 

0020 

♦SAS'CI 

OOOA 

*S.LEN 

0006 


♦S.TRAD 

0008 

$STRPT 

0003 

$TAF 

0000 

$TYPE 
.PROG. 

0000 

0153/ 

X 

$USE 

0005 

.. BLNK. 

0000s03 X 

.DATA. 

0000# 
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.INSERT 
£» REMARK 
£ 

£ 

£ 

£ 

£ 

£ 

e 

£ 

e 

e 

£ 

£ 

£ 

£ 

@ 

£BY 
£ 

£ 

£/ 

.INSERT 


As 

/ 


, ASM 


* 

X * * 

* 

* 

* 

# 

"WHEN YOU CARE ENOUGH TO PROGRAM 
THE VERY BEST" 

ZGRASS V2.OOOOOOOO 

JAY FENTON, MOLA DONATO, AND TOM DEFANTI 

1978 


(C) 


.LINK 


.PREL 


.IDENT 

CM1 

.INTERN 

CMDTAB 

.INTERN 

CONTAB 

.INTERN 

DATA 

.INTERN 

END 

.INTERN 

FOR 

.INTERN 

GOTO 

.INTERN 

IF 

.INTERN 

LET- 

.INTERN 

NEXT 

„INTERN 

RESTORE 

.INTERN 

RETURN 

.INTERN 

SKIP 

.INTERN 

THEN 

.EXTERN 

ABORT 

„EXTERN 

ACOPY 

.EXTERN 

ALLOC 

.EXTERN 

ALLOCD 

.EXTERN 

ARRAY 

.EXTERN 

ARG 

.EXTERN 

BOX 

.EXTERN 

CARTYP 

.EXTERN 

CLEARIT 

.EXTERN 

CMDREN 

.EXTERN 

CMDRES 

.EXTERN 

CMDSKP 

.EXTERN 

CORE 

.EXTERN 

DECSIY 

.EXTERN 

DELETE 

.EXTERN 

DISPLAY 

„ EXTERN 

DOMORE 
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.EXTERN ERRPGM 
.EXTERN EVAL 
.EXTERN EVALARG 
.EXTERN EDIT 
.EXTERN FINDHASH 
.EXTERN FINDLAB 
.EXTERN FORMAT 
.EXTERN FREE 
.EXTERN GETDSK 
.EXTERN GETL.PT 
.EXTERN GETOPND 
.EXTERN HELP 
.EXTERN HEXHL 
.EXTERN INC5IY 
.EXTERN INIVDA 
.EXTERN INIVDM 
.EXTERN INIDEV 
.EXTERN INPTTY 
.EXTERN INPUT 
.EXTERN ISNAME 
.EXTERN ISNL 
.EXTERN KISNL 
.EXTERN KLB 
.EXTERN LARGE 
.EXTERN LINE 
.EXTERN LINER 
.EXTERN MODIFY 
.EXTERN NAMADR 
.EXTERN NAMSET 
.EXTERN NLPNT 
.EXTERN NXTABC 
.EXTERN NXTL.NK 
.EXTERN NXTPTR 
.EXTERN NXTVAL 
.EXTERN DUTCH 
.EXTERN PDECBC 
.EXTERN PRINT 
.EXTERN PRINTF 
.EXTERN PRINTHL 
.EXTERN PRTYPA 
.EXTERN PSCAN 
.EXTERN PUTL.PT 
.EXTERN PUTOPND 
.EXTERN RENAME 
.EXTERN RETNONE 
.EXTERN RETONE 
.EXTERN RGBINI 
.EXTERN SCANS 
.EXTERN SCANLAB 
.EXTERN SCANNL 
„EXTERN SCLEAR 
.EXTERN SMALL 
.EXTERN SNAP 
.EXTERN STOP 
.EXTERN STREQK 
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.EXTERN SWITCH 
.EXTERN TABPNT 
.EXTERN TANGENT 
.EXTERN TEXT 
.EXTERN USEMAP' 
.EXTERN WHATSIS 


0000'' 

0036" 

CMDTABs .WORD 

ANYARGS 

0002 •" 

00005OA 

. WORD 

BOX 

0004" 

0058" 

. WORE! 

CONTROL 

0006" 

0445"' 

. WORD 

DATA 

0008 "' 

0000!18 

. WORD 

EDIT 

000A - " 

0127" 

.WORD 

FOR 

OOOC •" 

03F9-" 

. WORD 

GOTO 

OOOE •" 

OOOOs 20 

. WORD 

HELP 

0010" 

03B3 "' 

. WORD 

IF 

001.2 -• 

637C 

. WORD 

AFIX CJ 3 E("J"-101Q)*16+FSTINT3 

0014" 

638C 

. WORD 

AFIX IK It ("K"-101Q)*16+FSTINT 1 

0016"' 

0468" 

„ WORD 

LET 

0018"' 

000052F 

. WORD 

MODIFY 

001 A"' 

026'?"' 

. WORD 

NEXT 

001C"' 

02C4" 

. WORD 

ONERROR 

00 IE"' 

0000539 

. WORD 

PRINT 

0020"' 

63EC 

„ WORD 

AFIX CQDC("Q"-101Q)*16+FSTINT 3 

0022"' 

03GB " 

. WORD 

RETURN 

0024" 

036F"' 

. WORD 

SKIP 

0026"' 

000054F 

. WORD 

TEXT 

0028"' 

00005 50 

. WORD 

USEMAP 

002A"' 

643C 

. WORD 

AFIX C V 3 t <"V"~101Q)*16+FSTINT 3 

002C"' 

OOOOs 51 

. WORD 

WHATSIS 

002E "' 

645C 

. WORD 

AFIX C X 3 C("X"~10IQ)*16+FSTINT 3 

0030"' 

646C 

. WORD 

AFIXCY3C("Y"~101Q)*16+FSTINT3 

0032"' 

647C 

. WORD 

AFIX t Z 3 t ("Z"-101Q)*16+FSTINT 3 

0034"' 

648C 

FSTDOL 


5 H-ANYARGS COMMAND** 

5 RETURNS 1 IF THERE"S ARCS LEFT, 0 OTHERWISE 
M.CMDCANYARGS,..ANYX,0,ARRAY,0,..ANY13 l 


0036"' 

18 

+AMYARGS 

5 . BYTE $CMDADR 

0037" 

03 

+ 

„ BYTE (..ANYX-ANYARGS)/16+1 

0033"' 

00 

4- 

.BYTE 0 

0039"' 

0000508 

■ 4* 

.WORD ARRAY 

003B" 

0048" 

4* 

.WORD ..ANY! 

003D"' 

0000 

6 -/ ^ 

.WORD 0 

003F"' 

0047" 

414E59415247+ 

+ 3 

00 

.ASCIZ /ANYARGS/ 

.BYTE 0 5NO SWITCHES 

0048 " 
004C"' 
004F "' 
0050"' 

DD2A 625E 
DD7E1B 

B7 

CO 

.. ANY1s 

LIXD MACTOP !SEE IF fMIBEND 

MOV A, m1 BEND(X) SIS 0 

ORA A 5 NOPE, RET 1 

RNZ 5 RET TO RETONE 
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0051“ 

5F 

MOV EiA 


0052“ 

57 

MOV D, A 


0053*“ 

3E04 

MVI A,$IVAL 

; RET A 

0055“ 

C3 0000 5 41 

JMP RETNONE 


0058 *“ 


..ANYXs 






; -Sf-H-H-CONTROL COMMAND#"*# 




M. CMDCCONTROL,CONTRX, 0 

,CORE,CONTRH,CONTRl3 t 

0058 •" 

18 


+CONTROL 

s . BYTE 

$CMDADR 

0059“ 

OD 


4- 

.BYTE (CONTRX- 

CONTROL)/16+1 

005A" 

00 


-1- 

.BYTE 0 


0056“ 

0000s10 



.WORD CORE 


005D 

006A" 


4 

.WORD CONTRl 


005F“ 

006D *“ 


4 

. WORD CONTRH 


0061 - 

434F4E54 

52' 

4FH- 

.ASCIZ /CONTROL/ 




+] 



0069" 

00 



.BYTE 0 


006A " 

CD 0000s 

09 

CONTRls 

CALL ARG 


006D 

0800 


CONTRHs 

.BYTE $STRADR, 

$TAF 

006F 

E5 



PUSH H 


0070-’ 

FD6E01 



MOV L,1(Y) 

? GET ADDR 

0073“ 

FD6602 



MOV H,2 C Y) 


0076- 

01 000A 



LXI B,$SASCII 

GET FIRST CHAR 

0079-' 

09 



DAD B 


007A" 

7E 



MOV A,M 


00733 *“ 

D640 



SUI "A"—1 


0070*“ 

F2 0084" 



JP ..OK 

?IS LT 0? 

0080 



..BADs 

ERROR ER.CTL 

5 BAD CHARE 

0080 " 

CD 0000s 

15 

4 

CALL ERRPGM 


0083' 

36 


4 

.BYTE ER.CTL 





+ 3 



0084 

FE1B 


. . OKs 

CPI 27 ;GT Z? 


0086 ■" 

F2 0080" 



JP ..BAD 

5 YUP 

0089" 

57 


CONTRLs 

MOV D,A 

5SAVE A 

008A ■" 

87 



ADD A 

s DOUBLE IT 

008B ' 

4F 



MOV C,A 

5 ENTRY FROM 10 SCANNER 

008C -' 

0600 



MVI B,0 


008E •' 

21 00AA" 



LX I H,GONTAB-2 

5 GO THRU TABLE 

0091" 

CD OOOOs 

32 


CALL NXTABC 

5 GET VALUE 

0094" 

E5 



PUSH H 

5 SAVE IT 

0095" 

21 00A3" 



LX I H,CONRET 

,RET ADDR 

0098" 

E3 



XTHL 

* ON STACK 

0099 " 

E5 



PUSH H 

”NOW FETCH FLAGS BYTE 

009A " 

21 65CA 



LXI H,FLAGS-1 

SHAS 26 BYTES IN TABLE 

009D " 

4A 



MOV C,D 

? GET CNTL CHAR BACK 

009E" 

09 



DAD B 

? B ZEROED BY MVI ABOVE 

009F " 

7E 



MOV A,M 

,GET FLAG VALUE 

00 AO " 

EB 



XCHG 

?INTO DE 

00 A1 " 

El 



POP H 

,GET GOTO ADDR 

00 A2" 

E9 



PCHL 

5 GOTO IT 

00 A3" 

5F 


CONRETs 

MOV E,ft 

5 SETUP FOR RETURN 

00A4" 

1600 



MVI D,0 


00 A 6 " 

3E04 



MVI A,$IVAL 


00A8" 

El 



POP H 

5 GET H BACK (EOL PTR) 
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00A9 ** 

C3 0000s41 


JMP RETNONE 

? RETURN WITH A?«DE SET 

OOAC"' 

OOFD" 

CONTABs 

„WORD CXOR 

? A-AUDIO ON/OFF 

00 AE" 

OOEA" 


.WORD CLARGE 

5B-BIG CHARS 

OOBO "' 

OOFS'" 


.WORD CSINC 

;CONTROL C 

00B2" 

OOFD' 


.WORD CXOR 

5 D-DEBiJG/SSTEP OFF/ON 

5 CLEARED BY ABORT 

00B4" 

OOFD" 


.WORD CXOR 

5 E-ECHO ON/OFF 

00B6-* 

OOFD" 


.WORD CXOR 

? F-VIP ON/OFF 

00B8 •" 

0101" 


.WORD CLRALL 

■G-CLEAR ALL 

OOBA "' 

OOFC •" 


.WORD CSET 

;H~EDITOR 

ODBC"' 

OOFC" 


.WORD CSET 

?I“EDITOR INSERT 

OOBE 

OOFC" 


.WORD CSET 

!J—EDITOR DOWNER 

ooco 

OOFC"' 


.WORD CSET 

? K—EDITOR UPPER 

00C2 

OOFC" 


.WORD CSET 

5 L-EDITOR -> 

00C4 

OOFD"' 


.WORD CXOR 

5 M ( RESERVED—CR) 

00C6 •" 

0115"' 


.WORD CNOISE 

? N—SHUT OFF MUSIC 

00C8 

OOFD" 


.WORD CXOR 

?O-PRINT ON/OFF 
?CLEARED BY ABORT 

OOC A •" 

OOFC" 


.WORD CSET 

“P—PRINT OFF 

5 CLEARED BY ABORT 

QOCC •" 

0123"' 


«WORD CQ 

5 '©—PRINT ON 

OOCE •“ 

0000 s 43 


.WORD RGBINI 

? R-DEFAUL.T COLORS 

00D0-' 

OOF 1 " 


.WORD CSMALL 

“ CHARSET S/L 

00D2 “ 

00E5 •" 


.WORD INITWO 

5 T—TWO LINE WINDOW 

00D4" 

OOFD" 


.WORD CXOR 

;U—UNUSED 

00D6 ” 

OOFC"' 


.WORD CSET 

? V-EDITOR 

00D8'" 

OOEO " 


.WORD INIWHL 

5 W-WHOLE WINDOW 

CODA - " 

OOFD" 


.WORD CXOR 

• 5 X—LIST 

00 DC 

OOFC "' 


.WORD CSET 

5 Y-EDITOR 

CODE"' 

OOFC"' 


.WORD CSET 

? Z-CONTRLZ 
!CLEARED BY ABORT 



;NOW THE ACTIONS 


00 EO 

21 0000s24 

INIWHLS 

LXI H,INIVDM 


GOES"' 

1808 


JMF'R CLARX 


00E5"' 

21 0000s 23 

INITWOs 

LX I H»INIVDA 


GOES"' 

1803 


JMPR CLARX 


OOEA" 

21 0000s2C 

CL. A ROE s 

LXI H,LARGE 


OOED"' 

22 6534 

CLARXs 

SHLD SUBSTUFF 


OOPO 

C9 


RET 


OOF 1 

21 0000s48 

CSMALL s 

LXI H,SMALL 


00F4"' 

18F7 


■JMPR CLARX 


00F6"' 

3C 

CS IhlC-s 

I MR A 

5 INC UNTIL HITS 5 

00F7 

FE05 


CPI 5 


00F9" 

F2 0000s04 


JP ABORT 

? B I NGO 

OOFC"' 

AF 

CSETs 

XRA A 

“SET TO 1 BY CLEAR/XOR 

OOFD 

EEO1 

CXORs 

XRI 1 

“FLIP IT 

OOFF"' 

12 


STAX D 

5 STUFF IT 

0100"' 

C9 


RET 


0101"' 

21 65CB 

CLRALLs 

LX I Hj FLAGS 


0104" 

01 001A 


LXI B? 26 


0107"' 

CD 0000 sOC 


CALL CLEARIT 


010 A'" 

21 6593 


LX I HCAREA 

? ZAP HAND CONTROLS 

01OD 

01 0010 


L.X I B, 16 


0110" 

CD 0000 s'OC 


CALL CLEARIT 
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0113-' 

AF 



XRA 

A 

0114/ 

C9 



RET 


0115-' 

AF 


CNOISE: 

XRA 

A 

0116-' 

4»M 

65BD 


STA 

DEVVA 

01 19' 

•~'<C 

65C1 


STA 

DEVVB 

one-' 

*.“*!«£! 

65C5 


STA 

DEV VC 

01 IF" 

32 

65B9 


STA 

DEVVN 

0122" 

C9 



RET 


0123-' 

IB 


CQs 

DCX 

D 

0124"' 

AF 


COUT s 

XRA 

A 

0125"' 

12 



STAX D 

0126" 

0127" 

C9 


CONTRXs 

RET 



5 ZAP P BYTE 
;CLEAR IT 


;***FOR COMMAND*** 

M.GMDCFOR,..FORK,0,FORMAT,..FORA,.. FORI 3 C 


0127" 

18 

■HFORs 

.BYTE ♦CMDADR 


0128" 

13 

-i- 

„BYTE (..FORX- 

-FOR)/16+1 

0129" 

00 

4* 

.BYTE 0 


012A" 

00005 IB 

H~ 

.WORD FORMAT 


012C" 

0157" 

4 

.WORD ..FORI 


012E" 

0135" 

4 

„WORD ..FORA 


0130" 

464F5200 

4 

.ASCIZ /FOR/ 


0134" 

00 


.BYTE 0 

5 NO SWITCHES 

0135" 

63 

. .FQRA-s 

.BYTE 99 

5 SPECIAL 

0136" 

414243303 

120 

?FORBLK 

.ASCIZ /ABC=1 
SETUPS 

TO TO STEP 2 (FOR 


EXAMPLE)/ 


0 
! 1 


♦TYPE 

♦LENGTH 

♦FLAGS 


53?<4 PTR TO PREV FORBLK OR TO MIB 
5 5&6 NOT USED 

5 7m ADDR OF CODE FOLLOWING FOR STATEMENT 
. . . ASCII REPRESENTING INCREMENT AMD 
5 CONDITIONAL STATEMENTS CREATED BY FOR 


5 GENERAL MODE OF ATTACK IS TO: 

51. ALLOCATE FORBLK AND CHAIN IN AT ♦FORPTR 

54. IF IT'S VAR= CHANGE TO VAR- 

55. EVALUATE VARJEXPR1 

56. IGNORE "TO" IF THERE 

57. SAVE PTR TO EXPR2 


5 8. SCAN OVER EXPR2 Sc SCAN OVER "STEP" IF THERE 
5.9. IF NO EXPR3, MAKE EXPR3=1 

510. CHECK SIGN OF EXPR3. IF NEG, CHANGE > TO < 
5 11. CREATE STRING VAR..VAR+EXPR3 f 

512. CREATE STRING VAR>EXPR2 OR VAR<EXPR2 


0157“' 

CD 0000s2B 

..FORis CALL. KLB 

5 ZIP PAST BLANX 

015 A " 

E5 

PUSH H 

5 SAVE PTR TO VAR FOR EVAL 

015B" 

CD 0000s31 

CALL NAMSET 

5 POINT TO DELIM 

015E" 

FE28 

CPI "(" 

5 IS ARRAY? 

0160" 

CC 0000 s 3D 

CZ PSCAN 

5 YEAH, CHECK PAST ) 

0163" 

365F 

MVI M,AASM 

5 STUFF A AASN IN 






•~‘1 
4m* J. 
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cm 


0165 “ 

3E05 

0167- 

CD 0000s06 

016 A ■' 

E5 

016B" 

DDEl 

016D-' 

3624 

016F “ 

2A 625E 

0172 

01 OOOB 

0175*“ 

09 

0176-' 

7E 

0177“ 

DD7703 

017A“ 


017B 

7E 

017C-" 

DD7704 

017F 

DDES 

0181 

D1 

0182“' 

72 

0183*** 

2B 

0184“ 

73 

0185“ 

El 

0186" 

E5 

0187“ 

CD 0000s17 

018 A" 

CD OOOOs 2A 

018D “' 

CA 0247" 

0190“ 

FE2C 

0192“' 

2003 

0194" 

•~»o 

0195“' 

1 b'UD 

0197“ 

11 01D6" 

019 A “' 

CEf OOOOs 4B 

019D" 

2005 

019F “' 

CD 0000344 

01A2" 

2847 

01A4 “' 

CD OOOOs2B 

01 A7“ 

E3 

01A8 " 

E5 

01 A9“ 

DDES 

01AB" 

Di 

01 AC “' 

7B 

01 AD “' 

C609 

01AF “' 

5F 

01 BO “' 

AF 

01B1 “' 

8A 

01B2“' 

57 

01B3“' 

3E5F 

01B5“' 

CD 0000305 

01B8 “' 

El 

01B9“" 

CD 0000 "05 

01BC" 

IB 

01BD “' 

El 

01 BE 

E5 

01BF “' 

3E2B 

01 Cl “' 

12 

01C2 “' 

13 

01C3" 

CD 0000S44 

01C6 “' 

2011 


MVI A,5 
CALL ALLOC 
PUSH H 
POP X 

MVI M, $FORBLI< 

LHLD MACTOP 

LX I B,$FORPTR 

DAD B 

MOV A,M 

MOV 3 < X)jA 

INX H 

MOV A,M 

MOV 4(X),A 

PUSH X 

POP D 

MOV MrD 

DCX H 

MOV MiE 

POP H 

PUSH H 

CALL EVALARG 
CALL KISNL 
JZ ..FORE 
CPI 

JRNZ ..F0R2 
INX H 

JMPR ..NOTO 
..F0R2 s LX I D,..TOA 
CALL STREQK 
JRNZ ..NOTO 
CALL SCANS 
JRZ ..FORJ 
..NOTO2 CALL KLB 
XTHL 
PUSH H 
PUSH X 
POP D 
MOV A,E 
ADI 9 
MOV EiA 
XRA A 
ADC D 
MOV D,A 
MV I A, 

CALL ACOPY 
POP H 

CALL ACOPY 
DCX D 
POP H 
PUSH H 
MV I A, •- + ••• 

STAX D 
INX D 

CALL SCANS 
JRNZ ..STEP 


5 GET 6 BLOX FEE NOW 
SIXO FWA OF FORBLK 


;CHAIN IT IN 
iGET PREV FORBLK 


5 PUT .IN.' NEW BLOCK 


5LIKE THIS 

5 NEW FORBLK PTR IN DE 
? PUT IN PREV FORBLK 

5 LIKE THIS ' 

5PTR TO VAR 
5 SAVE IT 
5 DO ASSIGNMENT 
5 ANY MORE 
iMOPE-ERROR 
iCOMMA? 

5 JUMP OVER IT 

? SKIP OVER "TO" 

5 NOT THERE 
5 SKIP TO BLANK 
?IF EOL, ERROR 

!SP->EXPR2, HL~>VAR 
5 SAVE —>VAR 
? POINT DE->FORASC11 

tt 

? II » It 

5ADD 9 TO IT 
? CLUMSY 


; WHEW! 

1 COPY TILL _ 


5VAR_VAR_ 

5 VAR„VAE 
5 H->EXPR 

5 AND SAVE IT AGAIN 
? BUILD VAR-.VAR+l 


"SCAN OVER 
“SUMPTIN THERE 
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01C8" 

3E31 


MVI A, "'I"' 


01C A •" 

12 


STAX D 


Q1CB"' 

13 


I NX D 


o icc ■- 

AF 


XRA A 


01 CD"' 

12 


STAX D ? PUT IN 

TERMINATOR 

01CE-" 

13 


INX D 


01 CF •" 

1839 


JMPR ..PLUS 


01 D 1 " 

5354455000 

..STEAs 

„ASCIZ /STEP/ 


01D6-" 

544F00 

..TOAs 

.ASCIZ /TO/ 


01D9" 

CD 0000s2B 

..STEP: 

CALL KLB 


01 DC-" 

D5 


PUSH D 

5 SCAN OVER "STEP" IF THERE 

01DD-" 

11 01 D 1 "' 


LX I D 7 ..STEA 


01 E 0 " 

CD 0000s4B 


CALL STREQK 


01E3-" 

2009 " 


JRNZ . .. NOST 

5 NOSTEP! 

01E5-" 

CD 0000 s45 


CALL SCANLAB 

5 SKIP OVER 

01 E 8 -" 

CD 0000:29 


CALL l'SNL 

5 CHECK TERMY 

01EB-" 

L-A 0247* 

„„FORJs 

JZ ..FORE 

? NUTTIN FOLLOWING "STEP" 

01 EE"' 

D 1 

..MOST: 

POP D 

"BACK INTO FORBLK 

01 EF "' 

CD 0000s2B 


UALL KLB 


01 F 2 -" 

FE2C 


CPI 

5 COMMA? 

01F4-" 

2001 


JRNZ ..NOSE 


Q1F6" 

•~« o 


INX H 


01F7 

E5 

.„NOSE* 

PUSH H 

5 SVE PTR TO EXPR3 

01F8-" 

EDAO 

».SOREs 

LDI 

;COPY TILL EOL 

01FA-" 

CD 0000:29 


CALL ISNL 


01FD" 

20F9 


JRNZ ..SORE 


01 FF 

EDAO 


LDI 

? COPY TERMY TOO 

0201 •" 

El 


POP H 

* PTR TO EXF’R 3 

0202 •" 

3E04 


MVI A,$IVAL 

5 NEED INTEGER 

0204 •" 

CD 0000:16 


CALL^EVAL 

5 GET SIGN OF EXPR3 

0207" 

FD7E02 


MOV A 7 E.HVAL(Y) 

?INTO A 

020 A "' 

E5 

..PLUS: 

PUSH H 

"SAVE EOL FOR CMDRET 

020B"' 

F5 


PUSH PSW 

5 SAVE SIGN IN A 

020C •" 

DDES 


PUSH X 

5 GET FORBLK FWA IN HL 

020E •" 

El 


POP H 


020F-" 

01 0009 


LX I B,9 


0212 "' 

09 


DAD B 

”GET PTR TO VAR IN FORBLK 

0218-" 

3E5F 


MV I A, 


0215"' 

CD 0000*05 


CALL ACOPY 


0218-" 

IB 


DCX D 

?IGNORE TERMINATOR 

02; 19"' 

EB 


XCHG 

"GET HL FROM DE 

021 A"' 

363E 

' ' *V ' ' 

M V I M, "•> •" 

", DEFAULT 

021C" 

FI 


POP PSW 


02 ID"' 

B7 


ORA A 

5 CHECK SIGN 

021E-" 

F2 0223"' 


JP ..SOK 

5 IS POSITIVE 

0221 "' 

363C 


MV I M, 

MS NEGATIVE 

0223"' 

" •j&O* . 

.«SOKs 

INX H 


0224 "' 

EB 


XCHG 

? DE=HL 

0225"' 

El 


POP H 

? EOL BACK 

0226"' 

E3 


XTHL 

“ON STACK, HL->EXPR2 

0227 •" 

EDAO 

. COPY: 

LDI 

5 COPY TILL BLANK OR NL 

0229"' 

7E 


MOV A 7 M 


022A "' 

FE20 


CPI " "' 


022C"' 

2809 


JR'Z . . E2X 

", BUILD VARCEXPR2 

022 E"' 

FE2C 


CPI 
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0230"' 

2805 


JRZ ..E2X 



CD 0000s29 


CALL ISNL 


0235-' 

20F0 


■JRNZ . .COPY 


0237-' 

EDAO 

. . E2X: 

LDI 

5 COPY DELIM TOO 

0239-' 

DDES 


PUSH X 

-GET forblok fwa 

023B-' 

El 


POP H 

5 FOR ALLOCD 

023C"' 

CD 0000s07 


CALL ALLOCD 

5 DE—>1 PAST 

023F 

El 


POP H 

5 EOL 

0240 •" 

DD7507 


MOV 7(X)» L 


0243-' 

DD7408 


MOV 8(X)? H 

? FOR NEXT 

0246-* 

C9 


RET 


0247-' 

E5 

..FORE: 

PUSH H 


0248-' 

DDES 


PUSH X 


024A" 

El 


POP H 


024B-" 

CD 0253"' 


CALL FORDEL 


024E •" 

El 


POP H 





ERROR ER.FORC 


024F " 

CD 0000:15 

4* 

CALL ERRPGM 


0252 y 

28 

4* 

.BYTE ER.FOR 




. + 3 



0253"' 


. . FORXs 

; '' , 


02.53/ 

E5 

FORDELs 

PUSH H 5 SAVE 

FORBLK F*TR FOR FREE 

0254" 

DDES 


PUSH X 


0256" 

CD 0000:34 


CALL NXTLNK 

;GET PREV FORBLK 

0259" 

DD2A 625E 


LIXD MACTOP 

?CURRENT MIB 

025D -' 

DD750B 


MOV $FORPTR(X) 

7 L 

0260"' 

DD740C 


MOV *F0RPTR+1(X),H 

0263"' 

DDE 1 


POP X 


0265"' 

El 


POP H 


0266-' 

C3 0000“1C 


JMP FREE 





M.CMDCNEXT, . . NEXX, 0, AFIXIINI, . .NEXA, . .NEX13C 

0269 ■" 

18 

+NEXT: 

.BYTE $CMDADR 


026A "' 

06 

+ 

.BYTE C„„NEXX- 

NEXT)/16+1 

026B" 

00 

*+* 

.BYTE 0 


026C "' 

63BC 

“H 

.WORD AFIXtNH 

("N H —101Q)*16+FSTINT 3 

026E 

0278"' 

4* 

. WORD . . IMEX1 


0270/ 

027B "' 

+ 

.WORD ..NEXA 


0272-' 

4E45585400 

4* 

»ASCIZ /NEXT/ 




4*3 



0277" 

00 


„BYTE 0 

* NO SWITCHES * 

0278/ 

CD 0000:09 

.uNEXls 

CALL ARC 

5 GET VAR ADDR 

027B"' 

OAOO 

; «NEXfts 

„BYTE $NAMEV$TAF 

027D"' 

E5 


PUSH H 


027E" 

2 A 625E 


L.HLD MACTOP 

? GET AT FORBLK 

0281 "' 

01 OOOB 


L..XI B, $FORPTR 

?LATEST ENTRY 

0284-' 

CD 0000:33 


CALL NXTABC 

5 IF ZERO, WE "'RE DEAD 

0287 -' 


u « NXTEs 

ZERROR ER.NXTC 


0287"' 

2004 

4* 

■JRNZ . .0001 


0289 "' 

CD 0000:15 

4* 

CALL ERRPGM 


028C "' 

ID 

4* 

.BYTE ER.NXT 


028D "' 


4* „ „ 0001 « 

1 


028D 

E5 


PUSH H 

j HL HAS FORBLK ADDR 

028E -' 

01 0009 


L XI B 7 9 

?FIRST DO INCR EVAL 
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0291 '■ 

09 


DAD B 


0292" 

CD0000s17 


CALL EVALARG 

?IGNORE RESULTS 

0295" 



INX H 

5 POP OVER TERMY 

0296" 

3E04 


MV I Ai $1. VAL 

? ASK FOR INTEGER 

0298" 

CD 0000*16 


CALL EVAL 

5 CHECK OUT CONDITIONAL 

029B" 

FD7E01 


MOV A,E.L.VAL(Y) 

!GET VALUE 

029E" 

El 


POP H 


029F" 

B7 


ORA A 

5 IS 0 (FAIL, I.E. GO UP)? 

02A0 " 

200A 


.JRNZ . . FALL 

? NOPE, FALL THRU 7 DEL FORBL> 

02A2" 

01 0007 


LX I Bi7 

;GET PTR TO BACK ADDR 

02A5" 

CD 0000s33 


CALL NXTABC 

■ GET IT 

02A8" 

28DD 


•JRZ . . NXTE 

“BAD ERROR 

02 AA" 

FI 


POP PSW 

?TRASH OLD HL EOL 

02 AB" 

C9 


RET 

? JUST RETURN 

02 AC" 

E5 

..FALLS 

PUSH H 

?SAVE CURRENT FORBLK 

02 AD" 

DDES 


PUSH X 


02AF" 

CD 0000s 34 


CALL NXTLNK 

5 POINT TO PREV FORBLOK 

02B2" 

DD2A 625E 


LIXD MACTOP 


02B6 " 

DD750B 


MOV $F0RPTR< X )7 L 


02B9" 

DD740C 


MOV $F0RPTR+1(X) 

, H 

02BC " 

DDE! 


POP X 


02BE " 

El 


POP H 


02BF " 

CD 00005 1C 


CALL FREE 

5 ZAP CURRENT 

02C2" 

El 


POP H 

?EOL PTR 

02C3" 

C9 


RET 

5 FALL THRU 

02C4 " 


.. NEXX s 





M . CMD[ONERROR , ..ONEX , 0 , AFIXCO3 ,. .ONEA , . . ONE13 C 

02C4 " 

18 

+ ONERROR 

s , BYTE $CMDADR 

02C5 " 

05 

4* 

. BYTE (. . ONEX-ONERROR)/16+1 

02C6" 

00 

4* 

..BYTE 0 


02C7 " 

63CC 

4* 

.WORD AFIXC03CC” 

0 ■' -101Q) * 16+FSTI NT 3 

02C9 " 

02E7" 

4* 

.WORD ..0NE1 


02CB" 

02D6 " 

-h 

.WORD . .ONEA 


02CD " 

4F4E4552524F+ 

.ASCIZ /ONERROR/ 




+ 3 



02D5" 

00 


.BYTE 0 

5 NO SW I TCHES 

02D6 " 

63 

. .ONEAs 

.BYTE 99 


02D7 " 

414E59205A47 

.ASCIZ /ANY ZGRA 

SS CODE/ 

02E7 " 

01 0000 

. .ONE!s 

LXI B,0 

? CLEAR OUT ONEBUF A BIT 

02E A " 

ED43 6729 


SBCD ONEBUF 


02EE" 

ED43 672B 


SBCD ONEBUF +2 


02F2 " 

CD 0000s 2A 


CALL KISNL 

* EOL? 

02F5" 

C 8 


RZ 

*, YUP, RETURN 

02F 6 " 

11 672D 


LXI D? ONEBUF+4 

?START AT #4 

02F9" 

EDAO 

.,MORES 

LDJ 

S COPY TILL DONE 

02FB" 

CD 0000s29 


CALL ISNL. 

n ' •' v.. - 

3 n u i* ' 

02FE " 

20F9 


JRNZ . . MORE 

8 ■ ■ ■ ■ ' 

% tt it » . 

0300 " 

rtoB 


CPI "?" 

5 COPY " S" TOO 

0302 " 

28F5 


JRZ ..MORE 


0304 " 

AF 


XRA A 

? STUFF A NULL IN 

0305" 

12 


STAX D 

7” AT END 

0306 " 

3C 


INR A 

5 AND SET ONEBUF FIRST 

0307" 

32 6729 


STA ONEBUF 
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030A" 

C9 


RET 


03OB - 


..ONEX: 





M.CMDi: RETURN, RETX, 0, REMARK, . . RETA, . . RET 1 3 E 

030B" 

18 

+RETURNS 

.BYTE $CMDADR 


030C-* 

04 

4* 

.BYTE (RETX—RETURN)/16+1 

030D" 

00 

4* 

.BYTE 0 


030E ■" 

0454'* 

4- 

.WORD REMARK 


0310" 

031C"' 

4* 

.WORD ..RET1 


0312-’ 

03 IF" 

4- 

.WORD ..RETA 


0314 •" 

52455455524E+ 

.ASCIZ /RETURN/ 




+ 3 



031B 

00 


.BYTE 0 

5 NO SWITCHES 

031C 

CD 0000s09 

..RET1s 

CALL ARG 


03 IF" 

FE1E 

..RETAs 

.BYTE $ANYVAL, 

^REPEAT 

0321 "■ 

CD 0000sIF 


CALL GETOPND 

1 GET THE OPERAND 

0324"' 

B7 


ORA A 

? IS 0? 

0325 ** 

2004 


■JRNZ . „ RETB 

?NO-GET ARG 

0327" 

21 033D"' 


LXI H,RFAKE 

5 FAKE A MULL 

032A" 

C9 


RET 

5 BACK TO RETONE 

032B" 

FD2A 625E 

. .RETBs 

LI YD MACTOP 

?IY -> MIB 

032F" 

01 0013 


LXI B,$RVSTUFF 

?SETUP Y 

0332"' 

FD09 


DADY B 


0334 

CD 0000-“ 3F 


CALL PUTOPND 

;STUFF IT 

0337"' 

21 033D"' 

RETOUTs 

LX I H,RFAKE 

5 STUFF IT 

033A"' 

C3 0000s41 


JMP RETNONE 

" AND RETURN VALUE 

033D" 


RETX s 



033D"' 

0000 

RFAKEs 

.WORD 0 ? FAKE NULL EOF 

033F •" 


\ 

. . RES'X s 





M„ CMDftGQSUB, . . GOSX, 0, GETDSK, GOTARG, . . GOS13 E 

033F"' 

18 

4-GOSUBs \ 

.BYTE $CMDADR 


0340" 

04 

+ \ 

„BYTE («„GOSX—GO 

SUB)/16+1 

0341"' 

00 


\. BYTE 0 


0342" 

0000 s ID 

4* 

\WORD GETDSK 


0344"' 

034F" 

4- 

.'WORD „ „G0S1 


0346"' 

0408" 


.WORD GOTARG 


0348" 

474F535542 1 

00 + 

„ASCIZ /GOSUB/ 


034E"' 

00 

“ J 

.BYTE 0 

“NO SWITCHES 

034F " 

CD 0000s 2B 

. .GOS 15 

callVlb 

;START LIKE GOTO 

0352"' 

DDES 


push k 

5 PUTSTUFF ON STACK 

0354 •" 

FDE5 


PUSH Y\ 

? u it a 

0356"' 

E5 


PUSH H \ 

5 SAVE —>T0 LABEL 

0357" 

CD 0000s46 


CALL bL-AMML 

5 GET LINE TO RET TO 

035A 

E3 


XTHL \ 

?REPLACE ON STACK 

035B"' 

11 0000542 


LX I D,RETONfe 

?RETURN ADDR 

035E"' 

D5 


PUSH D \ 


035F "’ 

FD2A 625E 


LIYD MACTOP \ 

? GET &INCR GOSUB BYTE 

0363"' 

FD341A 


INR HiGOSUB(Y) \ 

? TO INDICATE GOSUB 

0366"' 

CD 0000s1A 


CALL FINDLAB 

) GET TO CODE 

0369"‘ 

CD 0000s3E 


CALL PUTLPT 

"SAVE LINE PTR 

036C" 

C3 0000s14 


•JMP DOMORE 

5 AND EXECUTE IT 

036F"' 


. . GOSX s 
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M. CMD r. Sfc IP,.. SKPX, 0, STOP, . . SKP A, . . SKP1 1 C 

036F " 

18 

+SKIPS 

.BYTE $CMDADR 


0370" 

05 

“1“ 

.BYTE (..SKPX- 

SKIP)/16+1 

0371" 

00 


.BYTE 0 


0372 •" 

00005 4A 

4- 

.WORD STOP 


0374" 

037E" 

4* 

„WORD .„SKP1 


0376" 

0381"' 

4 

.WORD ..SKPA 


0378" 

534B495000 

4 

.ASCII /SKIP/ 




+i 



037D" 

00 


.BYTE 0 

5 NO SWITCHES 

037E •" 

CD 0000s09 

..SKPis 

CALL ARG 


0381 " 

0400 

„ . SKPAs 

.BYTE $IVAL,0 

5 GET A NUMBER 

0383 "* 

FD5E01 


MOV E,1(Y) 


0386 ■" 

FD5602 


MOV D,2(Y > 

; IN DE 

0389 ' 

AF 


XRA A 

5 CHECK FOR 0 

038A "* 

B2 


ORA D 

?IS +, 0 OR -? 

038B 

FA 039D 


■JM . . SKP 

;ITS NEGATIVE 

038E •" 

B3 


ORA E 

5 IS ALL ZERO? 

038F •" 

280C 


JRZ »«SKP 

5 ITS 0 

0391 

CD 0000 s 46 

„.SKDNs 

CALL SCANNL 

5 SKIP ML"'S UNTIL DE=0 

0394" 

IB 


DCX D 


0395"* 

B7 


ORA A 

5 CHECK FOR NULL 

0396"’ 

08 


RZ 

MS NULL (FROM SCANNL) 

0397"* 

7 A 


MOV A, D 

?CHECK FOR DE=0 

0398"’ 

B3 


ORA E 


0399"* 

20F6 


•JRNZ „ „ SKDN 

» 

? tt u n 

039B-" 

2B 


DCX H 

; BACKUP?<—>NL 

039C •" 

C9 


RET 

5 ALL DONE 

039D " 

2B 

..SKPs 

DCX H 

5 BACKUP ONE 

039E " 

7E 


MOV A, M 

;PICKUP CURRENT CHAR 

039F •" 

B7 


ORA A 


OSAO •" 

2004 


.JRNZ . . MLCK 

5 IS NO NULL 

03A2-" 

jL-C* 


I NX H 

5 IS NULL, POINT AT FIRS 

03 A3 " 

G3 0000sOE 


JMP CMDRES 

* CHAR OF STRING 

03 A6 ’* 

FEOA 

..NLCKs 

CPI NL 

?IS NL? 

03A8 

20F3 


JRNZ ..SKP 

? NOPE 

03 A A " 

7A 


MOV A,D 

;CHECK IF DE=0 

03 AB "' 

B3 


ORA E 

n 

? 

03 AC" 

13 


I NX D 

5INCR JUST IN CASE 

03 AD" 

20EE 


JRNZ ..SKP 

5 MORE 

03AF" 

C9 


RET 

”NO MORE 

03B0 " 

2B 

. .OCXs 

DCX H 

5 DE = DE—1 

03B1 " 

1 SEA 


JMPR ..SKP 

5 Z IP MORE 

03B3-" 


..SKPX s 






M.CMDCIF,.„FXX 

,0, INPUT, . . I FA, . .FI IK 

03B3 •" 

18 

+ IFs 

.BYTE $CMDADR 


03B4 •" 

05 

+ 

.BYTE ( ..FXX—IF )/16+1 

03B5-" 

00 

4 

.BYTE 0 


03B6 •" 

0000s27 

4 

.WORD INPUT 


03B8 •" 

03C0 

4 

„ WORD „„F11 


03BA ■" 

03DC 

4 

.WORD ..IFA 


03BC "' 

494600 

4 

.ASCI Z /IF/ 



+ 3 
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IF COMMAND 





03BF 

00 


.BYTE 0 

“NO SWITCHES 

0300 

CD 0000s2B 

..FI15 

CALL KLB 

? .JUMP OVER BLANX 



5 CHANGE ■** 


03C3" 

CD 0000522 


CALL INC5IY 


03C6 " 

3E04 


MVI A,$IVAL 

5 ASK FOR INTEGER 

03C8 •" 

CD OOOOslS 


CALL EVAL 

50 IF FALSE, 1 IF TRUE 

03GB" 

FD7E01 


MOV A,E.LVAL(Y) 

“GET VALUE 

OSCE" 

FDB602 


ORA E.HVAL(Y) 

5 CHECK VALUE 

03D1 •- 

F5 


PUSH PSW 


03D2" 

CD 0000511 


CALL DECSIY 


03D5 

FI 


POP PSW 


03D6 " 

CA 00005 OF 


.12 CMDSKP_- 

5 FERGET IT 

03D9 ■" 

C3 0486 '' 


■JMP THEN1 l 

5 DO REST OF LINE 

03DC-' 

63 

..IFAs 

.BYTE 99 

?SPECIAL FOLLOWS 

03DD 

413G31302C47 


. ASCIZ /A-C10, GOTO 123 (FOR EXAMPLE)/ 

03F9 


..FXXs 






M. CMD Z GOTO, GOTOX, 0, GOSI 

JB,GOTARG,GOTO13 I 

03F9" 

18 

+GOTOs 

.BYTE $CMDADR 


03FA-' 

02 

H- 

.BYTE (GOTO X-GOTO)/16+1 

03FB ■' 

00 

+ 

.BYTE 0 


03FC" 

033F •" 

4- 

.WORD GOSUB 


03FE •" 

040F" 

4* 

.WORD G0T01 


0400"' 

0408' 

4* 

.WORD GOTARG 


0402 •" 

474F544F00 

4- 

+ 3 

.ASCII /GOTO/ 


0407'' 

00 


.BYTE 0 ^ 

5 NO SWITCHES 

0408". 

63 

GOT ARG 5 

.BYTE 99 


0409 " 

4C4142454C00 

.ASCIZ /LABEL/ 


040F-' 

CD 000052B 

GOTO15 

CALL KLB 

", ZAP BLANX 

0412 

CD 000051A 


CALL FINDLAB 

"GET PTR TO LABEL 

0415" 
0418‘" 

C3 OOOOs3E 

GOTO X 5 

.JMP PUTLPT 

? AND STORE IT 

5 AND RETURN 


M. CMDCRESTORE, RESX , 0,AFIXCR1>0, - . RES 1 


0418-' 

IS 

4 -RESTOREs 

.BYTE $CMDADR 

0419-' 

02 

4 

. BYTE (. . RESX -RESTORE) /1.6+1 

041A ■" 

00 

4- 

.BYTE 0 

041B ■" 

63FC 

4- 

. WORD AFIXCR3 C ( "R"-101Q) *16-i-FSTINT3 

041D-" 

042A** 

4* 

.WORD ..RES1 

04 IF-' 

0000 

+ 

.WORD 0 

0421" 

524553544F r 5: 

24 

4] 

.ASCII /RESTORE/ 

0429 -' 

00 


.BYTE 0 5 NO SWITCHES 

042A" 

FD2A 625E 

«RES is 

L.IYD MACTOP 

042E 

FD360700 


MVI $DATAPTR(Y),0 

0432" 

FD360800 


MVI fDATAPTR+1(Y >,0 ?CLEAR OUT 

;DATAPTR IN 

0436 -' 

C9 


RET 

0437"' 


« »RESX« 
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cm 

RESTORE COMMAND 


M.CMDCEND,END X,0,AFIX l E 3,0,END13C 


0437“' 

18 

+END." 

.BYTE $CMDADR 

0438“ 

04 

4 

.BYTE (ENDX-END)/16+1 

0439 •" 

00 

4- 

.BYTE 0 

043A-' 

6320 

4* 

.WORD AF IX C E 3 C (*■ E “ -101Q) 16+FSTI NT 3 

043C " 

0465“’ 

4 

.WORD END1 

043E “ 

0000 

4- 

.WORD 0 - 

0440" 

454E4400 

4* 

+ 3 

„ASCIZ /END/ 

0444“’ 

00 


.BYTE 0 5 NO SWITCHES 

M.CMD l DATA,ENDX,0,DELETE,0,END13 t 

0445“’ 

1 •"*’ 

+DATAS 

.BYTE tCMDADR 

0446“’ 

03 

4* 

.BYTE (ENDX-DATA)/16+1 

0447“ 

00 

4* 

.BYTE 0 

0448“' 

0000 s 12 

4* 

.WORD DELETE 

044A •" 

0465 •" 

4* 

.WORD END1 

044C“* 

0000 

4 

.WORD 0 

044E“’ 

4441544100 

4 

+ 3. 

.ASCIZ /DATA/ 

0453“’ 

00 

.BYTE 0 5NO SWITCHES 

M. CMDt:REMARK, ENDX, 0, RENAME, 0, END 1 3 L 

0454“* 

18 

♦REMARKS 

.BYTE $CMDADR 

0455“’ 

02 

4* 

.BYTE (ENDX-REMARK)/16+1 

0456“’ 

00 

4* 

.BYTE 0 

0457“’ 

0000s40 

4* 

.WORD RENAME 

0459“' 

0465“’ 

4* 

.WORD END! 

045B “’ 

0000 

■ 4* 

.WORD 0 

045D “’ 

52454D41524B+ 

+ 3 

„ASCIZ /REMARK/ 

0464“’ 

00 


.BYTE 0 5 NO SWITCHES 

0465“’ 

C3 0000sOF 

END 15 

.JMP CMDSKP 

0468“’ 


ENDX s 



0468 •" 

18 

+LET5 

M. CMDi: LET, . „ LETX, 0, LINE, 0, . . 
.BYTE $CMDADR 

LET 131 

0469“* 

01 

4* 

„BYTE (..LETX-LET>/16+1 


046A" 

00 

4- 

.BYTE 0 


046B“’ 

0000s2D 

4- 

.WORD LINE 


0460“’ 

0476" 

4 

.WORD ..LET1 


046F“’ 

0000 

4 

„WORD 0 


0471" 

4C455400 

4 

.ASCII /LET/ 


0475 •" 
0476" 

00 

C9 

+ 3 

..LET15 

.BYTE 0 5 NO SWITCHES 

RET 


0477" 

0477 " 

18 

..LETXs 

+THENs 

M.CMDC THEN,THENX,0,TANGENT,0 
„BYTE $CMDADR 

,THEN13 L 

0478" 

02 


„BYTE <THEM X-THEN)/16+1 


0479 •" 

00 

+ 

.BYTE 0 


047A •" 

0000 s 4E 

+ 

„WORD TANGENT 
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CM 1 

THEN COMMAND 


047C *" 

0486 

H- 

..WORD THEN 1 


04.7.E *" 

0000 

4* 

.WORD 0 


0480*" 

5448454E00 

4* 

+ 3 

.ASCIZ /THEN/ 


0485 *" 

00 


.BYTE 0 

“NO SWITCHES 

0486" 

E5 

THENis 

PUSH H 


0487" 

CD 0000S2B 


CALL KLB 

5 SCRUNCH BLANX 

048A *" 

CD 0000 s OB 


CALL CARTYP 

;IF NUMERIC, ITS 

048D *" 
048E *" 
0491 *" 
0492" 

El 

DA 04OF"' 

C9 

THENX s 

POP H 

JC G0T01 

RET 

?RESTORE H 


. END 
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+++++ SYMBOL TABLE +++++ 


AA8N 

005F 


ALLOCD 

OOOOs 07 

X 

ARRAY 

0000 s 08 

X 

BOTTOM 

64AV 


CLARGE 

OOEA" 


CLRALL 

0101 -' 


CMDTAB 

0000 y 

I 

CNTRLO 

65D9 


CONTAB 

OOAC" 

I 

CONTRO 

0058 •" 


CF'LARE 

611C 


CSBLOK 

6680 


CSMALL 

OOF 1 " 


CXOR 

OOFO **’ 


C.CY 

GOOD 


C. XF 

OOOF 


C.YS 

0009 


DELETE 

0000 s12 

X 

DEVCL2 

657D 


DEVCL6 

6585 


DEVMO 

658B 


DEVTNB 

65BF 


DEWB 

65C1 


DEWN 

65B9 


DISPLA 

0000s13 

X 

DUMBST 

6577 


EDLONG 

6812 


EDNCY 

680E 


EDPN 

6806 


EDSTR 

681A 


ERABIT 

0002 


ER.ASN 

0015 


ER.CNV 

0016 


ER.DIM 

0030 


ER.EDT 

0035 


ER.IMP 

0003 


ER.NAM 

0029 


ER.NUM 

002B 


ER.OVE 

001 E 


ER.SEP 

0021 


ER. SW 

0032 


EVAL 

OOOOs16 

X 

E.LVAL 

0001 


FCNTH 

65D2 


FCNTL 

65D6 


FINDLA 

OOOOs1A 

X 

FORDEL 

0253"' 


FREE 

0000 s1C 

X 

FWDPTR 

65E7 


GOSUB 

033F "' 


GOTOX 

0418"' 


IF 

03B3-' 

I 

IMITWO 

00E5-" 


IMPTTY 

OOOOs26 

X 

■JUNK 

6542 



ABORT OOOOs04 X 
ANYARG 0036" 
BACKGR 65CC 
BOX 0000s OA X 
CLARX OQED" 
GMDREN 0000SOD X 
CNOISE 0115-' 
CNTRLU 0015 
CONTR1 006A" 
CONTRX 0127" 
CPLSIZ 0140 
CSET OOFC-' 
CURCX 6814 
C .CO 0011 
C.DP 0013 
C.XS 0007 
DATA 0445-' I 
DEVBL 6589 
DEVCL3 657F 
DEVCL7 6587 
DEVNM 65B7 
DEVTMC 65C3 
DEVVBL 6591 
DEWS' 65C7 
DOLPLH 62E8 
EDBCNT 64AD 
EDMODE 681C 
EDNEWS 64A5 
EDF'O 6804 
END 0437-' J. 
ERRPGM 0000s 15 X 
ER.BOX 001A 
ER.COR 00IB 
ER..DIV 0018 
ER.FMT 0038 
ER.LAB 0025 
ER.NEG 003A 
ER.NXT 00ID 
ER.PAR 002A 
ER.SNP 0031 
ER.TER 0020 
EVALAR 0000s17 X 
E.SIZ 0005 
FCNTI 65D3 
F'CNTV 65E0 
FIRST 64A3 
FOREGR 65D0 
FREELS 65E5 
GETDSK 0000s ID X 
GOTARG 0408" 
HCAREA 6593 
INC5IY 0000s22 X 
INIVDA 0000s23 X 
INPUT 0000527 X 
KBLQCK 65F1 


ACOPY 

0000 s 05 

X 

ARG 

OOOOs 09 

X 

BLANK 

0020 


CARTYP 

OOOOs OB 

X 

CLEARI 

OOOOs oc 

X 

CMDRES 

OOOOs OE 

X 

CIMTRL 

00 OC 


CNTRLZ 

65E4 


CONTRH 

006D •" 


CORE 

OOOOs10 

X 

CQ 

0123"' 


CSFLAG 

6260 


CURCY 

6816 


C.Ci 

0012 


C. ST 

0002 


C. Y 

0005 


DDTON 

65CE 


DEVCLO 

6579 


DEVCL4 

6581 


DEVFB 

65CB 


DEVIMT 

658D 


DEWA 

65BD 


DEVVC 

65C5 


DEVXCD 

65B3 


DOLPPT 

62EA 


EDCCNT 

64A7 


EDNAME 

64 A1 


EDOCX 

6808 


EDPTRC 

64AB 


END1 

0465"' 


ER.ARA 

002F 


ER.CHN 

0002 


ER.CTL 

0036 


ER „ DP 

0037 


ER.FNF 

001 C 


ER.MAC 

0022 


ER.NOT 

0023 


ER.OFL 

0017 


ER.REN 

002C 


ER.SPC 

002E 


ER.IJFL 

0033 


EXTDEL 

002E 


E.TYP 

0000 


FCNT.J 

65D4 


FCIMTY 

65E3 


FLAGS; 

65CB 


FORMAT 

OOOOsIB 

X 

FSTDOL 

648C 


i3ETL.PT 

OOOOsIE 

X 

GOTO 

03F9" 

I 

HELP 

OOOOs20 

X 

INCRO 

65E9 


INIVDM 

0000 s 24 

X 

ISNAME 

OOOOs28 

X 

KEYFLG 

67FF 



ALLOC 

0000S06 

X 

AR68TK 

60CC 


BOTRAM 

6000 


CHARSL 

65DD 


CLEARS 

60CA 


CMDSKP 

OOOOs OF 

X 

CNTRLC 

65CD 


CONRET 

0 0 A 3 *’ 


CONTRL 

0089 **’ 


GOUT 

0124" 


CR 

GOOD 


CSINC 

00F6 ** 


CURREN 

64 A5 


C.CX 

00 OB 


C. X 

0003 


C. YF 

0010 


DECSIY 

0000 s11 

X 

DEVCL1 

657B 


DEVCL5 

6583 


DEVHCB 

658F 


DEVTIMA 

65BB 


DEWAR 

6579 


DEWD 

6.5 C. 9 


DEVYCD 

65B5 


DOMORE 

OOOOs14 

X 

EDIT 

OOOOs18 

X 

EDNGX 

680C 


EDOCY 

680A 


EDPTRL 

64A9 


ENDX 

0468-' 


ER.ARG 

0034 


ER.CMD 

00 IF 


ER.DEL 

0026 


ER.DSK 

0019 


ER.FOR 

0028 


ER.MAE 

002D 


ER.NUL 

0039 


ER . OF‘N 

0014 


ER.RET 

0024 


ER.STK 

0004 


ER.UNF 

0027 


E.HVAL 

0002 


E. VAL 

0001 


FCNTK 

65D5 


FINDHA 

OOOOs19 

X 

FOR 

'01.27' 

I 

FRAGSI 

0400 


FSTINT 

62EC 


GETOPN 

OOOOsIF 

X 

G0T01 

040F"' 


HEX HI. 

OOOOs 21 

X 

INIDEV 

OOOOs 25 

X 

INIWHL 

UObU" 


ISNL 

OOOOs 29 

X 

KEYPTK 

6533 
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KEYTRK 

67F7 


KISNL 

0000S2A 

X 

KLB 

000052B 

X 

LARGE 

OOOOs 2C 

X 

LET 

0468“ 

I 

LF 

OOOA 


LINE 

0000!2D 

X 

LINEP 

OOOO s 2E 

X 

LISTON 

65E2 


MACSTU 

6536 


MACTOP 

625E 


MAXFRG 

0040 


MNMX 

65EB 


MODIFY 

0000 s 2F 

X 

MAMADR 

0000 s 30 

X 

NAMSET 

0000 s 31 

X 

NBLKB 

0000 


NBLKM 

0001 


NEWBOT 

6810 


NEXT 

0269" 

I 

NL 

OOOA 


NLPNT 

0000s32 

X 

NSADDR 

680*2 


NUMBUF 

64A3 


NXTABC 

0000 s 33 

X 

NXTLNK 

0000 s 34 

X 

nxtptr 

0000s 35 

X 

NXTVAL 

OOOOs 36 

X 

OLDCHR 

64A0 


OLDCUR 

649F 


OLDKEY 

649D 


OLDXY 

65EF 


ONEBUF 

6729 


ONERRO 

02C4- 


OPRL 

0014 


OPRSP 

655B 


OPRSTK 

6547 


OPRSZ 

655D 


DUTCH 

OOOOs 37 

X 

OUTOFF 

62E7 


PCNT 

655E 


PDECBC 

0000S38 

X 

PIXVAL 

65ED 


POINTE 

64A7 


PONOFF 

65DA 


PRINT 

0000s 39 

X 

PRINTF 

OOOOS 3A 

X 

PRINTH 

0000 s 3B 

X 

PRINTR 

6540 


PRTYPA 

0000s 3C 

X 

PSCAN 

OOOOs3D 

X 

PUTLPT 

0000 s 3E 

X 

PUTOPN 

0000s 3F 

X 

RAMEND 

7FFF 


RAMSTR 

6900 


RANSHT 

655F 


REMARK 

0454- 


RENAME 

0000 s 40 

X 

RESTOR 

0418- 

I 

RETNON 

OOOOs41 

X 

RETONE 

0000 s 42 

X 

RETOUT 

0337- 


RETURN 

030B'" 

I 

RETX 

033D- 


RFAKE 

033D" 


RGBINI 

0000 s 43 

X 

RMDTMP 

6538 


RUBACK 

0005 


RUBOUT 

007F 


SAVESP 

6250 


SCANS 

OOOOs 44 

X 

SCANLA 

OOOOs 45 

X 

SCANNL 

0000s46 

X 

SCLEAR 

0000 s 47 

X 

SCNEED 

0004 


SCRWIN 

67CD 


SKIP 

036F" 

I 

SMALL 

0000 s 48 

X 

SNAP 

OOOOs49 

X 

SOPRSP 

653D 


SOPRSZ 

653F 


STACK 

60C8 


STAKTO 

6000 


STOP 

OOOOs4A 

X 

STREQK 

0000s4B 

X 

STRSIZ 

6800 


SUBSTU 

6534 


SWITCH 

0000 s 4C 

X 

TAB 

0009 


TABPNT 

0000S4D 

X 

TANGEN 

OOOO s 4E 

X 

TAPBUF 

64B3 


TAPCON 

64AF 


TAPPRO 

64B1 


TBFEND 

6533 


TEMPHD 

60CA 


TEMPS 

62E5 


TEXT 

0000 s 4F 

X 

THEN 

0477- 

I 

THEIMl 

0486*** 


THENX 

0492"' 


TMPARG 

67 AD 


TOP 

6818 


TTYBEG 

6261 


TTYEND 

62E1 


TTYINT 

62E3 


TTYPTR 

62E1 


TXTWIN 

67E2 


UARTFL 

649C 


USEMAP 

0000s 50 

X 

USREND 

65F1 


V3PTR 

6573 


VDCHAR 

649E 


VDIMLF 

65CF 


VIPLH 

6545 


VOICEO 

6563 


WHATSI 

0000s 51 

X 

WRMODE 

65EE 


ZGIM2 

0001 


ZGREND 

68 ID 


$AADR 

0010 


$ADDRF 

0007 


$ADDRI 

0005 


$ADDRS 

0009 


$ ANY 

001A 


$ANYNA 

FFFC 


$ANYVA 

FFFE 


$ARGPT 

0011 


♦BGPTR 

OOOF 


$BNDL 

0007 


f>CALLE 

OOOD 


fCMDAD 

0018 


$CPLBL 

002A 


$CSBLO 

0028 


$DATAP 

0007 


$DOL.DE 

0001 


$DDLDO 

0002 


$DVAL 

0000 


$END 

001C 


$FADR 

OQOE 


$FLAGS 

0002 


$FORBL 

0024 


$FORPT 

OOOB 


$FVAL 

0006 


$GOSUB 

001A 


$IADR 

OOOC 


$INPBU 

0018 


$INPPT 

0016 


$1VAL 

0004 


$KEYBL 

0026 


$LENGT 

0001 


f-LIIMPT 

0005 


$LOCPT 

0009 


$MIBBL 

0022 


$M1BEN 

001B 


$NAMAD 

OOOA 


$NAME 

OOOA 


fNASCI 

0009 


$NDEL 

0080 


UNLINK 

0003 


$NULL 

0002 


$NVALU 

0005 


$REPEA 

00 IE 


$RVSTU 

0013 


$SAME 

0020 


$SASCI 

OOOA 


$SL.EN 

0006 


fSTRAD 

0008 


$STRPT 

O0O3 


$TAF 

0000 


$TYPE 

0000 


$USE 

0005 


.BLNK. 

0000s 03 

X 

.DATA. 

0000* 

X 

.PROG. 

0492" 

X 








PAGE 1 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
CM2 



.EXTERN ABORT 
.EXTERN ACOPY 
.EXTERN ALLOC 
.EXTERN ALSTR 
.EXTERN ARG 
.EXTERN ASSIGN 
.EXTERN CARTYP 
.EXTERN CLEAR 
.EXTERN CLEARIT 
„EXTERN CLEARVAL 
.EXTERN CMDSKO 
.EXTERN CPRINT 
.EXTERN DECSIY 
.EXTERN DELBAG 
.EXTERN DISPLAY 
.EXTERN DOMORE 
.EXTERN ENDSTR 
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.EXTERN ERRPGM 
.EXTERN EVAL 
.EXTERN FINDHASH 
.EXTERN FINDLAB 
.EXTERN FREE 
.EXTERN GETDSK 
.EXTERN GETLPT 
.EXTERN GETOPMD 
.EXTERN HEXHL 
.EXTERN INC5IY 
.EXTERN INPTTY 
.EXTERN INT 
.EXTERN ISNAME 
.EXTERN ISNL 
.EXTERN KISNL 
.EXTERN KLB 
.EXTERN LN 
.EXTERN NAMADR 
.EXTERN NAMSET 
.EXTERN NLF'NT 
.EXTERN NXTABC 
.EXTERN NXTLNK 
.EXTERN NXTF’TR 
.EXTERN NXTVAL 
.EXTERN DUTCH 
.EXTERN PDECBC 
.EXTERN POWER 
.EXTERN PRINTF 
.EXTERN PRINTHL 
. EXTERN PRTYF'A 
.EXTERN PSHOPND 

.EXTERN RESTO^E-^ 
T EXTEKN HE TKiONE 
.EXTERN SCANS 
.EXTERN SCANLAB 
.EXTERN SCANNL 
.EXTERN SFREE 
.EXTERN STREQK 
.EXTERN SWITCH 
.EXTERN TABPNT 
.EXTERN TEMPCHN 
.EXTERN TEMPUN 


; *HELP COMMAND* 

M. CMD C HELP, . . HEL.X> 0, AFIX EHT, 0, „ . HEL1 11 


0000 *’ 

18 

+HEL.P s 

.BYTE $CMDADR 

0001 •- 

OF 

"h 

.BYTE (..HELX-HELP)/16+1 

0002 •' 

00 

4* 

.BYTE 0 

0003 *" 

63 5 C 

4* 

„WORD AFIXCH31("H"-101Q > *16+FSTINT1 

0005'" 

00OF 

4* 

.WORD „.HEL1 

0007- 

0000 

4* 

.WORD 0 

0009 •" 

48454C5000 

4 

.ASCII /HELP/ 

00 OE-' 

00 

+ 1 

.BYTE 0 "NO SWITCHES 







TDL 2.80 CF'/M DISK ASSEMBLER VERSION 2*21 
CM2 - 


OOOF" 

CD 0000 5 23 

..HEL1: 

CALL KISIML 

5 IS EOL 

0012-" 

2052 


-JRNZ . . HMES 

5 NOPE 

0014-" 

CD 0000 5 30 


CALL PRtNTFF 


0017-' 

545950452048 


.ASCIZ /TYPE 

HELP PLUS ONE OF: 

002D-' 

ODOAOO 

/ 



0030 •" 

E5 


PUSH H 

;SAVE EOL PTR 

■0031" 

3E41 


MVI A, -'A'- 

?CHAIN THRU ALL NAMES 

0033 *“ 

F5 

.„DOIT: 

PUSH PSW 

;SAVE CONTENTS OF A 

0034“ 

CD 0000*17 


CALL FINDHASH 

? GET ADDR OF HASH ENTRY 

0037“ 

01 OOOE 


LXI B,14 

5 POINT TO COMMANDS 

003A-' 

CD 0000:29 


CALL NXTABC 

;GET PTR 

003D" 

7E 

» ..CHEK« 

MOV A,M 

?SEE IF COMMAN 

003E" 

FE18 


CPI $CMDADR 

0 

0040“ 

2011 


.JRNZ . . MORE 

5 END OF COMMANDS 

0042 

E5 


PUSH H 

? SAVE PTR TO NAME START 

0043" 

01 0009 


LX I B,$NASCII 

? GET PTR TO ASCII 

0046“ 

09 


DAD B 


0047“ 

CD 0000*-31 


CALL F'RINTHL 

* PRIT WHAT HL-> AT 

004A *“ 

CD 0000*3D 


CALL TABF’NT 


004D * 

El 


POP H 


004E *“ 

CD 0000:2A 


CALL NXTLNK 

;GET NEXT NAME 

0051 *“ 

1 SEA 


.JMPR . . CHEK 


0053*“ 

FI 

..MORE: 

POP PSW 

? GET HASH CHARACTER BACH 

0054“ 

FE24 


CPI 

;DONE * YET? 

0056*“ 

2809 


•JRZ ..EXIT 

5YUP—DONE 

0058*“ 

3C 


I NR A 

;NO 7 BUMPSIE 

0059*“ 

FE5B 


CPI "'Z"' + l 

5 DONE WITH Z? 

005B*“ 

20D6 


•JRNZ ..DOIT 

? NAH 

005D *“ 

3E24 


MVI A,"$"' 

5 DO $ NAMES 

005F “ 

18D2 


■JMPR ..DOIT 


0061 "' 

CD 0000:28 

..EXIT: 

CALL NLF'NT 

? PRINT ML 

0064 

El 


POP H 


0065'' 

C9 


RET 

“ALL DONE 


0066“ 

FE2C 

„ .HMES: CPI " ? 


0068“ 

2001 

JRNZ ..HM2 


006A 


INX H 


006B" 

CD 0000:27 

..HM2* CALL NAMSET 

“LOOKUP NAME 

006E"' 

AF 

XRA A 


006F 

CD 0000s26 

CALL NAMADR 


0072“ 

2804 

NZERROR ER. NAME II 
+ JRZ ..0001 


0074 

CD 0000:15 

+ CALL ERRPGM 


0077" 

29 

+ .BYTE ER.NAME 


0078' 

0078' 

E5 

+..0001*3 

PUSH H ? SAVE EOL PTR 

0079"' 

EB 

XCHG ? GET NADDR IN HL 

007A "' 

7E 

MOV A 7 M 


007B "' 

FE18 

CPI $CMDADR 

5 IS COMMAND? 

007D " 

2052 

JRNZ ., USER 

“ NAH 

007F " 

CD 0000*30 

CALL PRINTFF 


0082"' 

. 434F4D4D414E 

: .ASCII /COMMAND 

LIKES: / 

0092 "' 

01 0007 

LX I B , $NASC11-2 

% PRINT NAME 

0095" 

09 

DAD B 

?POINT AT IT 
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0096" 

E5 


PUSH H 

5 SAVE ARG LIST ADDR 

0097" 

O 


INX H 


0098"' 

.L'J 


INX H 


0099" 

CD 0000:31 


CALL PRINTHL 


009C " 

El 


POP H 

5 GET ADDR OF ARG LIST 

009D"' 

CD 000052B 


CALL NXTF'TR 

?IF HL—>0* QUIT 

00 AO •" 

2012 


JRNZ ..PRIT 


00A2- 

CD 0000530 


CALL PRINTFF 


00A5 ' 

202842592049 


.ASCIZ / (BY IT 

SELF > / 

00B2" 

1 SAD 

..EXIls 

JMPR ..EXIT 


00B4" 

3E20 

..PRIT: 

MVI A,"' •" 

j PRINT SPACE 

00 B 6 •" 

CD 00005 2D 


CALL DUTCH 


00B9 " 

7E 


MOV A,M . 

5 GET ARGLST TYPE 

OOBA" 

B7 


ORA A 

?IF 0, END 

OOBB"' 

28A4 


JRZ ..EXIT 

tt 

7 u u u 

OOBD " 

FE1E 


CPI ^REPEAT 


OOBF-" 

28A0 


■JRZ ..EXIT 


00C1 •" 

FE63 


CPI 99 

5 IF 99, SPECIAL 

00C3 •" 

2806 


JRZ ..SPEC 


00C5"' 

CD 0000532 


CALL PRTYPA 

"PRINT TYPE IN A 

00C8 

23 


INX H 


00C9" 

18E9 


JMPR .„PRIT 

5 CONTINUE 

OOCB 

23 

. . S^F'EC 5 

INX H 


oocc •" 

CD 0000s31 


CALL PRINTHL 

5 PRINT SPECIAL STRING 

OOCF •" 

1390 


JMPR ..EXIT 


00D1 " 

F5 

..USERS 

PUSH PSW 


00D2 " 

01 0009 


LXI B,$NASCII 


00D5 " 

09 


DAD B 


00D6 •" 

CD 0000s31 


CALL PRINTHL 


00D9-" 

CD 0000s30 


CALL PRINTFF 


OODC x 

20495320594F 


.ASCIZ / IS YOUR / 

00E6" 

FI 


POP PSW 


00E7-" 

CD 0000s32 


CALL PRTYPA 


OOE A •" 

18C6 


JMPR „.EXII 



OOEC. . HELX 5 


5 #CORE COMMAND# 

M. CMDIICORE i . . CORK, 0, CLEAR,0, . . C0R1 11 


OOEC - 

18 

+CGRES 

.BYTE 

$CMDADR 



OOED 

05 

+ 

.BYTE 

( 

.. CORX-CORE)/16+1 


OOEE-" 

00 

4- 

.BYTE 

0 




OOEF •- 

00005 OB 

H- 

. WORD 

CLEAR 



00F1" 

OOFB •" 

+ 

«WORD 

* 

. COR 1 



UOh 3 ** 

0000 

+ 

. WORD 

0 




00F5 •" 

434F524500 

4* 

.ASCIZ 


/CORE/ 





+i 






OOF A"' 

00 


. BYTE 

0 

; NO 

SWITCHES 


OOFB-" 

E5 

. .CORis 

PUSH 


H 



OOFC-" 

CD 0000530 


CALL 


PRINTFF 

?PRINT HEADER 

OOFF •" 

41444452205: 


.ASCIZ 

/ADDR SIZE 



0108-" 

ODOAOO 

/ 






01 OB 

21 65E7 


LX I 


H,FWDPTR 

5 HL-> 

■FIRST FWD PTR 

01OE 

5E 

. . Cl 5 

MOV 


E, M 

5 DE-O 

■NEXT ITEM 

01 OF 

23 


INX 


H 



oi lo¬ 

56 


MOV 


D, M 



om-' 

IB 


DC X 


D 

? DE~> 

SIZE FIELD 
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0112 -" 

1A 


LDAX D 

5 A=BLOCK SIZE 

0113 •" 

B7 


ORA A 

?IS LISTHEAD? 

0114-' 

28 IE 


•JRZ . . EX 


0116-' 

CD 0000s ID 


CALL HEXHL 

"PRINT OUT ADDR 

0119-' 

2B 


DGX H 

5 1ST HI ORDER 

Oil A" 

CD 0000sID 


CALL HEXHL 

? THEN LG ORDER 

01 ID" 

CD 0000s3D 


CALL TABPNT 

5 THEN A TAB 

0120 " 

1A 


LDAX D 

;A=SIZE (BLOCKS) 

0121 •" 

2600 


MVI H,.0 

5 HL=BLOCI< SIZE 

0123-" 

6 F 


MOV L,A 


0124-' 

29 


DAD H 

;BLOCKS~>BYTES 

0125-' 

29 


DAD H 


0126" 

29 


DAD H 


0127-' 

2*9 


DAD H 


0128-' 

44 


MOV B,H 

"BC=BYTE SIZED 

0 i 29 f 

4D 


MOV C ,L 


012 A 

CD 0000s2E 


CALL PDECBC 

5 PRINT THE SIZE 

012D" 

EB 


XCHG 

?HL~>SIZE 

012E " 

CD 0000s28 


CALL IMLPMT 

,CR,LF 

0131" 



INX H 

!HL->FWD PTR AGAIN 

0132“ 

18D A 


•JMPR . . Cl 

5 DO NEXT ONE 

0134“ 

El 

... EX 5 

POP H 


0135" 

C9 


RET 


0136" 


..corx 5 





5 ^DELETE COMMAND* 





M.CMDCDELETE,.. 

DXX,0,DISPLAY,..DELA,„ .Dll 3 

0136" 

18 

+DEL.ETE 5 

.BYTE $CMDADR 


0137" 

03 

4* 

„BYTE (..DXX-DELETE)/16+1 

0138" 

00 

4* 

.BYTE 0 


0139" 

0000512 

4* 

„WORD DISPLAY 


013B" 

0147" 

4* 

.WORD ..Dll 


013D" 

014A" 

4* 

.WORD ..DELA 


013F" 

444540455445+ 

.ASCIZ /DELETE/ 




+ 3 



0146" 

00 


.BYTE 0 

5 NO SWITCHES 

0147" 

CD 0000508 

. .Dll 5 

CALL ARG 


014 A " 

0 A1E 

. .DEL.A5 

.BYTE $NAME,$REPEAT 

014C" 

E5 


PUSH H 


014D" 

FD7E00 

..MORES 

MOV A,0(Y) 

5 GET TYPE 

0150" 

B7 


ORA A 

5 CHECK FER NULL 

0151 " 

280E 


JRZ ..DONE 

MS ALL. DONE 

0153" 

FD6602 


MOV H,2(Y) 

5 GET ADDR 

0156" 

FD6E01 


MOV L, 1(Y) 

5tO DELETE AT 

0159" 

CD 0000511 


CALL DELBAG 

?DELETE IT 

015C" 

CD 00005 IE 


CALL INC5IY 

?INC IT 3 

015P" 

1 SEC 


JMPR ..MORE 


0161 " 

El 

..DONE5 

POP H 


0162" 

09 


RET 


0163" 


..DXXs 





5 *INPUT 

COMMAND FOR INTEGERS* 

0163" 

CD 0000523 

KBCNL.P5 

CALL KISNL. 

5 KILL BLANX 

0166" 

L*8 


RZ 

? RZ ON EOL"S 

0167" 

FE29 


cpi -•>-■ 

"AND )"S . 

0169" 

"V 00 


RZ 






TDL Z80 
CM2 


016 A 
0160 
01 MX 
016E 

0018 


0170 

0171 

0172 

0173 

0175 

0177 

0179 


017F- 
0181 •' 
0183' 

0188" 
0189" 
018B" 
018D" 
018F' 
0193" 


CP/M DISK ASSEMBLER VERSION 2.21 


PAGE 


FE2C 

CO 

23 

- 18F3 


CPI 
RNZ 
INX H 

•JMF'R KBCNLP 

$ INPBUF=$ I NPPTR+2 
5 INPUT COMMAND SYNOPSIS 
3 MIB USAGE 

3 INPF'TR - HOLDS PTR TO DEL IM BEFORE CURRENT ARG 
3 SO IT KNOWS WHERE TO CONTINUE 

5 ARGPTR -- HOLDS PTR TO CURRENT ARG TO FEED TO 
3 INPUT ARGS. IF $MIBEND~>A NULL, THIS 

3 IS AN ASCII STRING TO FEED TO 

5 EVAL, OTHERWISE IT IS A PASSED ARG LIST 

? IN THE MIB 

5INPBUF - HOLDS POINTER TO ARGLIST TYPED IN 
5 BY USER VIA INPTTY 


5 BUT SCAN COMMAS 
5 SKIP COMMA 


5 CASE 1 — INPUT FROM PASSED ARG LIST IN 


tl 

7 

5 EQUATE 

VALUE IN OUT 


It 

7 

NOT DONE 

DOME 

3$INPPTR 

0 DELIM 

0 

3 $INPBUF 

0 0 

0 

3 $ARGPTR 

$MIBEND NEXT 

NEXT 

5$MIBEND 

ARGS ARGS 

ARGS 


3 CASE 2A—TTY INPUT NEEDED (FIRST TIME 


3 $EQUATE 

VALUE IN 

OUT 

NOT DONE 

3 $INPPTR 

0 

DELIM 

3 $INPBUF 

0 

BUFF ADDR 

3 ^ARGPTR 

0 

DELIM 

5$MIBEND 

0 

0 


MIB 


CALLED 5 

DONE 

0 

0 

0 

0 


M. CM DC INPUT, . „ INF'X, 0, I NT, . . INF'A, . . INP13 C 


18 

h-INPUTS 

.BYTE $CMDADR 


10 

4- 

.BYTE (..INPX- 

INPUT)/16+1 

00 

+ 

„BYTE 0 


0000s20 


.WORD INT 


01.8b' 

H- 

.WORD ..INP1 


01 DC"’ 

4* 

.WORD ..INPA 


494E50555400+ 

»ASCIZ /INPUT/ 



M.SWITCHCNAME,..NAME,. 

. INPA 3 C 

0189"' 

+ 

„WORD ..NAME 


01 DC"' 

+ 

.WORD ..INPA 


4E414D4500 

+ 

.ASCIZ /NAME/ 


00 

+ 3 

.BYTE 0 

5 END OF SWITCHES 

3E0A 

..NAMES 

MVI A,$NAME 

3 ASK FOR NAME 

1802 

3E06 

..INPls 

JMPR ..INPN 

MVI A,$FVAL 


DD2A 625E 

..INPNs 

LIXD MACTOR 

3 LOAD IX 


DD7714 MOV $RVSTUF+1(X),A 3 SAVE TYPE 
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0196" 

EB 


XCHG 

5 SAVE HL IN DE 

0197" 

DD6617 


MOV H,$INPPTR+1(X) 

019 A •" 

DD6E16 


MOV Li $INPPTR(X) 

5 GET INPUT LINE PTR 

019D" 

7C 


MOV A,H 

?IS ZERO? 

019E "' 

B5 


ORA L 

", IF SO, NEW INPUT COMMAND 

019F-' 

2001 


■JRNZ . . INPP 

5ELSE USE IT AS PTR 

01 A 1 •' 

EB 


XCHG 

5GET HL BACK 

01A2-' 

E5 

. . I'NPP 5 

PUSH H 

5SAVE PTR INTO LINE 

01 A3"' 

CD 0163" 


CALL KBCNLP 

;SCAN BLAN X, COMMANS 

01 A 6 " 

2031 


JRNZ ..GET 

5 CLOSE > AND EOL -'S 

01 At! * 

E5 

..DONE! 

PUSH H 

5 DONE!, CLEANUP $INPBUF 

01A9-" 

DE 16 E1 8 


MOV L 7 $INPBUF(X) 

?IF ALLOC-'D 

01 AC-' 

DD6619 


MOV H 5 $INPBUF+1(X) 

01 AF ■" 

7C 


MOV A,H 

?IS THERE? 

01 B 0 " 

B5 


ORA L 


01 B 1 " 

280A 


JRZ ..D X X 

5 NAH 

01B3-' 

01 FFFB 


LXI B,-5 

5 ADDR IS ALLOC-'D BLOCK 

01 B 6 " 

09 


DAD B 

1 PLUS 5 

01B7 " 

CD OOOOs3F 


CALL TEMPUN 

? TEM UNLINK IT 

0 1 B A •" 

CD 0000519 


CALL FREE 

?RESTORE IT 

01BD ■" 

El 

. . D X X 5 

POP H 

”EOL POINTER 

01 BE" 

AF 


XRA A 

5 CLEAR A 

01BF •" 

DD7716 


MOV $INPPTR(X )7 A 


01 C 2 •" 

DD7717 


MOV $IMPPTR+1(X) 

7 A 

01C5-' 

DD7718 


MOV $INPBUF(X )7 A 


01 C 8 -" 

DD7719 


MOV $INPBUF+1(X) 

7 A 

01CB •" 

DD7E1B 


MOV A,$MIBEND(X > 

7 ZAP ONLY IF 

01CE ' 

B7 


ORA A 

5 MIBEND=$TAF 

01CF " 

2006 


JRNZ ..OUT 


01 D 1 •' 

DD7711 


MOV $ARGPTR(X), A 

01D4 " 

DD7712 


MOV T.ARGPTR+1 ( X ) 

,A , 5 CLEAR ICKIES 

01D7" 

FI 

..OUT! 

POP PSW 

5 TRASH ENTRY POINTER 

01 D 8 "' 

C9 


RET 

5 AND GO BYEBYE 

0109 •" 

CD 0000508 

..GET! 

CALL ARG 


01 DC"' 

OAOO 

..INPAs 

.BYTE $NAME,$TAF 


01DE - 

CD 0000!IE 


CALL INC5IY 

5 FOR ASSIGN BELOW 

01E1 •" 

E5 


PUSH H 


01 E 2 -" 

DD 6 E 11 


MOV L 7 fARGPTR < X) 

*, GET ARG LIST 

01E5-" 

DD6612 


MOV H,TARGPTR+ 1 (X) 5 SET BY DOMACRO 

01 E 8 -" 

7C 


MOV A,H 

5 SEE IF ZILCH 

01E9 •" 

B5 


ORA L 


01EA-' 

284B 


JRZ „.TTY 

?IT IS, NEED HUMAN NOW 

01 EC •" 

7E 


MOV A,M 

MS $MIBEND =0? 

01 ED' 

B7 


ORA A 

"OR IS ARCS DONE FOR? 

01 EE •" 

2847 


JRZ ..TTY 

;YUP-DO HUMAN INPUT 

01 FO¬ 

DD7E1B 


MOV A,$MIBEND(X) 

?CHECK THIS TOO 

CI FS- 

B7 


ORA A 

MF ZILCH, ARGS IS ASCII 

01F4 - 

282C 


JRZ ..TTA 

"FROM MULTI-HUMAN INPUT 

01F6" 

E5 


PUSH H 

5 FER SURE GOT PASSED ARG 

01F7-" 

FDE3 


XTIY 

’LIST, POINT IY AT IT 

01F9 " 

CD OOOOs1C 


CALL GETOPND 

? GET STUFF INTO A&DE FOR 

01FC" 

CD 0000!IE 


CALL INC5IY 

?ASSIGN BELOW 

01FF •- 

FDE3 


XTIY 

5 GET EVAL-'S IY BACK 

0201 -' 

El 


POP H 

,AND PTR INTO HL 

0202 -' 

CD 0000534 

..STUFs 

CALL PUTOPND 

? STUFF DES-A INTO IY 
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0205 •" 

7E 


MOV A,M 

?IS —>NULL? 

0206“ 

B7 


ORA A 


0207“ 

2002 


.JRIMZ . . OK 

5 NO 

0209 < 

67 


MOV H,A 

?ZERO IT 

020A" 

6F 


MOV L,A 

SARGPTR, THAT IS 

020B*“ 

DD7511 

. . OK s 

MOV $ARGPTR(X),L. 

5 POINT AT NEXT 

020E" 

DD7412 


MOV $ARGPTR+1(X) 

i H 5 ARG IN LIST 

0211- - 

CD 0000s09 


CALL. ASSIGN 

? DO ASSIGNMENT 

0214- 

El 


POP H 

5 GET TERMY ADDR BACK 

0215-‘ 

DD7417 


MOV T»INPPTR+1(X) 

vH 5 STORE IT 

0218-' 

DD7516 


MOV $INPPTR(X)? L 


021B 

CD 0000s10 


CALL DECSIY 

?RESET IY 

021E “' 

FI 


POP PSW 

?TRASH OLD TERMY ADDR 

02 IF- 

C3 01A2 “' 


JMP ..INPP 


AOOO *•* 

V .L .iL 

CD 0163" 

.„TTA s 

CALL KBCNLP 

S SCAN TO NEXT ARG IN LIST 

0225 - 

2810 


•JRZ ..TTY 

■NONE-GET INPUT 

0227 “' 

DD7E14 

.„TARGs 

MOV Aj $RVSTUF+1< X) SGET TYPE WANTED 

022A-' 

CD 0000s16 


CALL EVAL 

UNTO A?<DE 

0220" 

CD 0000S1C 


CALL GETOPND 

5GET IT 

0230- 

FEOA 


CPI $NAME 

US INP. NAME? 

0232“ 

CC 0264 “' 


CZ CNVNAM 

5DO STRING MASSAGE 

0235“' 

18CB 


•JMPR . . STUF 

? AND SETUP ARGPTR, ETC. 

0237“' 

DD6619 

..TTYS 

MOV H ? $INPBUF+1(X) 5 GET BUF ADR 

023A" 

DD6E18 


MOV Li $INPBUF(X) 


023D'- 

7C 


MOV A,H 


023E “' 

B5 


ORA L 


023F “' 

2018 


.JRIMZ . . ISBF 

5 GOT ONE ALREADY 

0241“' 

3E08 


MVI A,8 

■ GET 9 BLOX 

024.3 “' 

CD 0000s 06 


CALL ALLOC 


0246“' 

CD 0000s3E 


CALL TEMPCHN 

? ALLOC?iTEMPCHAIN 

0249“' 

01 0005 


LXI B,5 

5 ADD 5 TO POINT 

024C “' 

09 


DAD B 

5 AT BUFFER COUNT 

024D“' 

01 0080 


LX I B,128 

? CLEAR STUFF 

0250“' 

CD 0000sOC 


CALL CLEARIT 


0253 y 

DD7419 


MOV $INPBUF+i(X) 

,H 5 SAVE ADDR 

0256 •“ 

DD7518 


MOV f I NPBUF < X ) ■» L 

0259“' 

CD 0000sIF 

..ISBFs 

CALL INPTTY 

5 GET HUMAN TO 

025C“' 



INX H 

5 TYPE SOMETHING 

025D-" 

’"‘Sf’P 


JRZ ..TARG 

? JUMP OVER COUNT 

025F-" 

FI 


POP PSW 

UNO ML YET 

0260 “' 

FI 


POP PSW 

? FAIL 

0261 " 

C3 0000SOE 


JMP CMDSKO 


0264 “' 


. . IIMPXs 




5 ++++ 


7 

5 CNVNAM 

5 CONVERTS A NAME BLOCK TO A STRING 

7 

5 NEEDSs 

? DE -> TOP OF NAME BLOCK 
? *NASCII - ASCII NAME FIELD 
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5 RETURNS! 

3 A = TYPE STRING ($STRADR) 

3 DE -> TOP OF STRING WHICH CONTAINS THE ASCII NAME 

R 

? 

3 CALLS! 

5 ALSTR ~ ALLOCATE STRING 
5 ENDSTR ~ CLEAN UP AND RETURN 


0264-" 

E5 

CNVNAM3 

PUSH 

. H 

3 SAVE REGS 

0265"' 

C5 


PUSH 

B 


0266" 

21 0O09 


LX I 

H, *NASCII 

3 OFFSET OF NAME 

0269"' 

19 


DAD 

D , 

5HL-0NAME FIELD 

026A "' 

E5 


PUSH 

H ' 

3 SAVE PTR TO NAME 

026B" 

CD 0O00!07 


CALL 

ALSTR 

5ALLOCATE STRING 

026E"' 

E3 


XTHL 


5 C SP > ~>STR ING,HL->NAME 

026F "' 

EDAO 

„ «Cl s 

LDI 


5 COPY A CHAR 

0,271"' 

E2 027F" 


JPO . 

cron::* 
n im. 

5 OUT O' CORE 

0274"' 

7E 


MOV 

A,M 

3 GET NEXT CHAR 

0275"' 

B7 


ORA 

A 

5 IF NULL, END OF NAME 

0276" 

20F7 


•JRNZ 

. .Cl 

3 IF NOT, DO ANOTHER 

0278"' 

El 


POP 

H 

5 HL—>TOP OF STRING 

0279" 

CD 0000 s14 

R 

CALL 

ENDSTR 

5 GARBAGE COLLECT LEFTOVE 

027C" 

Cl 

POP 

B 

5 RESTORE REGS 

027D"' 

El 


POP 

H 


027E"' 

C9 


RET 



027F"' 


« «ERR s 

ERROR 

ER. core: 


027F"' 

CD 0000815 

4- 

CALL 

ERRPGM 


0282"' 

IB 

Hh 

. BYTE 

ER.COR 




•+*;j 





3 *WHATSIS COMMAND—GETS TYPE IN VAR PASSED 
M.CMDIWHATSIS,..WHX,O,AFIX l W 1 ,..WHA,..WHA131 


0283"' 

18 

+WHATSIS 

s „ BYTE 

$ CMDADR 

0284 "' 

04 

H- 


.BYTE E..WHX- 

WHATSIS)/16+1 

0285 " 

00 

4 


.BYTE O 


0286"' 

644C 

Hh 


. WORD AF IX Z W 1 E; < " W " -1 0 1 Q) ■* 16+FSTI NT 1 

0288"' 

0295" 

4 


.WORD ..WHAl 


028A"' 

0298" 

4 


.WORD ..WHA 


028G"' 

5748415453 

4y4 

4 1 


.ASCIZ /WHATS 

IS/ 

0294"' 

00 



.BYTE O 

3 NO SWITCHES 

0295" 

CD O000808 

M 

„ WHA18 

CALL ARG 


0298 •" 

0A1E 

St 

.WHA! 

.BYTE $NAME,$REPEAT 

029A' 

re 

Cl* 



PUSH H 


029B"' 

FD6E01 



MOV L,1 ( Y) 


029E "' 

FD6602 



MOV H , 2 ( Y ) 


02 A 1 " 

7E 



MOV A, M 

3 GET TYPE 

02A2-' 

FEOA 



CPI UNAMADR 

5 IS NAME? 

02A4" 

CC 0OO052C 



CZ NXTVAL.. 

3 IF SO, GET VALUE 

02A7 "' 

5E 



MOV E,M 

3 GET TYPE 

02A8 "' 

1600 



MV I D, O 

3 IN DE 

02AA"' 

FD7E03 



MOV A,3<Y) 

5 SEE IF NAME PASSED 
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02AD" B7 

02AE-" 3E04 

02B0" 2004 

02B2 •" El 

02B3-" C3 00005 36 

02B6" CD 00005 IE 

02B9-" CD 0000 5 33 

02BC-" CD 00005 09 

02BF •" El 

02CO" C9 

02C1 


ORA A 

MVI A,$IVAL 
■JRNZ . . CMD 
POP H 

•JMP RETNONE 
CMD5 CALL INC5IY 
CALL PSHOPND 
CALL ASSIGN 
POP H 
RET 

WHX 5 


?USEFUL TAG 
5 YIJFS USED AS CMD 
? GET TERMY BACK 
5 RETURN VALUE 

5 STICK IT 
5 STICK IT 


5 •+•+++ 

It 

3 

5 PRSTR 

? PRINTS AN ASCII STRING ON THE TERMINAL 

u 

; NEEDS 5 

5 DE ~> TOP OF STRING HEADER 
? STRING DATA STARTS AS TSASCTI+DE, 

? IS NULL TERMINATED 

" DESTROYS DE 

n 

n 

5 CALLS5 

? DUTCH - OUTPUT A CHAR 
* SFREE - ATTEMPTS TO FREE STRING 


02C1 •" 
02C1 

7A 

PRSTR5 

MOV 

A, D 

5 IF NULL, JUST 

0202 •" 

83 


ADD 

E 

? RETURN 

02C3 " 

C8 


RZ 



02C4" 

E5 


PUSH 

H 

“SAVE REGS 

02C5 •" 

21 000A 


LX I 

H,$SASCII 

5 GET STRING DATA 

02C8 

19 


DAD 

D 

“HL—>1ST CHAR 

02C9" 

3A 62E7 


LDA OUTOFF 

?SUPPRESS FROM 

02CC-" 

B7 


ORA A 


?INPUT ARCS 

02CD-" 

200A 


JRNZ . 

.EX 

5 BEING THERE? 

02CF 

7E 

..PI 5 

MOV 

A, M 

“END OF STRING? 

02D0" 

B7 


ORA 

A 


02D1-" 

2806 


JRZ 

. .EX 

* EXIT THEN 

02D3 •" 

CD 0366/' 


L-ALL 

POUTCH 

5 OUTPUT A CHAR 

02 D 6 •" 

23 


I NX 

H 

? HL—>NEXT CHAR 

02D7 •" 

1 SPE¬ 


JMPR 

. . F‘l 

? LOOP AGAIN 

02D9 " 

ED 

„ . EX 5 

XCHG 


5 HL—>TOP OF STRING 

02DA ■" 

CD 000053A 


CALL 

SFREE 

“FREE IT 

02DD" 

El 


POP 

H 

5 RESTORE PTR 

02DE-" 

C9 


RET 




• ++++ 


? PRINT 

? COMMAND TO PRINT STRINGS ON THE TERMINAL 
5 A SPACE IS PRINTED AFTER EACH ARGUMENT AND A NEWLINE 
5 IS PRINTED AT THE END OF THE LINE. UNLIKE PROMPT, 

5 PRINT WILL DISPLAY ITS ARGUMENTS REGARDLESS OF WHETHEF 
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5 THE MACRO ARGUMENT LIST IS EXHAUSTED OR NOT 

7 

? SYNTAXs 

5 PRINT <STRING>,<STRING>,... 


M.CMDCPRINT,..PEND,0,PROMPT,..PARC,..PRNTDt 


02DF" 

18 +PRINTS 

.BYTE 

*CMDADR 

02E0 •" 

02 + 

.BYTE 

(..PEND—PRINT)/16+1 

02E1 •' 

00 4* 

.BYTE 

0 

02E2-- 

02FA-- + 

„ WORD 

PROMPT 

02E4 

02EF •" + 

. WORD 

..PRNT 

02E6-" 

02F2 **’ 4* 

.WORD 

..PARC 

to 

m 

co 

**. 

5052494E54004- 

4-] 

.ASCIZ 

: /PRINT/ 

02EE •" 

00 

.BYTE 

0 

02EF-’ 

GD 0000 s 08 „ „ PRIMT s 

9 L A L. L 

ARG 

02F2 ■" 

08IE .„PARGs 

.BYTE 

$STRADR»^REPEAT 

02F 4 

CD 0322 *' 

CALL 

PNXT ,PRINT ARGUMENTS 

02F7 •- 

C3 0000 s 28 

,JMP 

NLPNT 5 AND NEWLINE 

02FA*** 

« «PENDs 

; ++++ 



5 PROMPT 

5 COMMAND TO PROMPT THE USER WITH A MESSAGE (OR MESSAGES 
) ON 

? THE TERMINAL. UNLIKE PRINT, PROMPT WILL BE SUPPRESSED 
IF THERE 

5 ARE ANY ARGUMENTS LEFT IN THE MACRO'S ARGUMENT LIST WH 
ICH HAVE 

? NOT BEEN PICKED UP BY INPUT. A TRAILING NEWLINE IS NOT 
ADDED, 

; BUT SPACES ARE PUT BETWEEN THE STRING ARGUMENTS 

? ■ ' ■ • ■ ■ 

? SYNTAX s 

• PROMPT <STRING>,<STRING>,. . . 


M.CMDCPROMPT,„.PEND,0,PRLPT,..PARC,».PROM 3C 


02FA-- 

18 

4-PROMPT" 

. BYTE 

$CMDADR 

02FB-" 

03 

4* 

.BYTE 

(..PEND-PROMPT)/16+1 

02FC"' 

00 

4- 

.BYTE 

0 

02FD "' 

033B-" 

4* 

. WORD 

PRLPT 

02FF 

030B •" 

4* 

. WORD 

..PROM 

0301 •" 

030E" 

4- 

. WORD 

..PARG 

0303'. 

S0524F4D50C 

44- 

.ASCIZ 

/PROMPT/ 



4-1 



030A 

00 


.BYTE 

0 

030B •" 

CD 0000 s 08 

..PROMS 

CALL 

ARG 

030E-' 

08 IE 

.. n PARC « 

. BYTE 

$STRADR,^REPEAT 

0310-' 

DD2A 625E 


LI XD 

| MACTOP 5IX->MACRO HEADER 

0314" 

DD7E00 


MOV 

/ A,0(X) !CHECK IF $MIBBLK 

0317-' 

PE 22 


CPI i 

f $MIBBLK 5 IS MIB? 

0319"' 

2007 


JRNZ £ 

PNXT 5 NO? PRINT ANYWAY 

031B-" 

DDA61B 



Tnrfr 7 v 1 * ANY ARCS? 
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03 IE- 
0321 ‘ 
0322' 


CC 0322 **' 
C9 


Cl 


PNXT 


NO? PRINT 


..PENDs 

; 4.+++ 

* 

; PNXT 

", PRINTS THE ARGUMENTS LIST OF STRINGS ON THE 
? FOR THE PRINT AND PROMPT COMMANDS 


IY STACK 


NEEDSs 
IY - 


LIST OF STRING ARGUMENTS 


", RETURNS s 

", STRINGS PRINTED OUT ON THE TERMINAL WITH. 
EEN 

", THEM, IY, DE DESTROYED 


SPACES BETW 


CALLS5 
OUTCH - 
PRSTR - 
INC5IY 


OUTPUT A CHAR 
PRINT A STRIj 
IL_NEXJ>ffRG i 


0322-' 

FD7E00 

pnxt s Aa^/1 

r A A.E.TYPC/) 1 

0325- 

FEOO 

J 

. li-TAF X 

0327'*’ 

C8 



0328 

FD5602 

MOV 

■ STe.HVAL(Y) 

032B *** 

FD5E01 

MOV 

E,E„LVAL < Y) 

032E-' 

CD 00005 IE 

CALL 

INC5IY 

0331 **' 

CD 02C1-' 

CALL 

PRSTR 

0334 •" 

3E20 

MVI 

A, •- •" 

0336 ■" 

CD 0366-' 

CALL 

POUTCH 

0339 •- 

18E7 

J'MPR 

t, PNXX 


5 CHECK TYF^P^Jl 
“ NO MORE ARC! 


i DE 


STR INi 


5 -it-* CHANGE 

M.CMDCPRLPT,..PEND,0,POWER • 


NEXT ARG 
:NT STRING 

prAnt blank 
continue 

PARC, . .Ps\k 


033B •" 

18 

+PRLPTS 

„ BYTE 

$CMDADR 

033C **’ 

03 

Hb 

.BYTE 

(. „ PEND-PRI. 

033D **’ 

00 

-b 

. BYTE 

0 

033E ■" 

0000"2F 

4* 

.WORD 

POWER 

0340 •" 

034A" 

~i~ 

.WORD 

. .PST 

0342 •" 

034D 

4- 

.WORD 

..PARG 

0344 

50524C505400+ 

+:] 

.ASCIZ 

/ PRL..PT / 

034A - ' 

CD 0000s08 

..PSTs 

CALL 

ARG 

034D**' 

08 IE 

„.PARGs 

. BYTE 

$STRADR,$ 

034F **’ 

E5 


PUSH 

H 

0350*’ 

21 0000 s OF 


LX I 

H,CPRINT 

0353**’ 

22 6540 


SHLD 

PRIMTR 

0356**' 

UD 0322*' 


CALL 

PNXT 

0359 **’ 

3E0A 


MVI 

A, NL 

035B *’’ 

CD 0366 ** 


CALL 

POUTCH 

035E **' 

21 0000s2D 


LXI 

H,OUTCH 

0361 “’ 

22 6540 


SHLD 

PRIMTR 

0364** 

El 


POP 

H 

0365 **' 

C9 


RET 







X 
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0366 

0366" E5 
0367 2A 6540 
036A-" E3 
036B-" C9 


..PENDs 

POUTCHs PUSH H 

LilLD PRINTR 

XTHL 

RET 5 CALL VIA RETURN 

5 ** DONE WITH CHANGES ** 

“ + 

? ^RENAME COMMAND* 

; + 

. ++++ 

II 

1 

", RENAME <OLD>, <NEW> 

? RENAMES THE OLD VALUE WITH THE NEW NAME 
5 <OLD> AND <MEW> ARE BOTH ZGRASS NAMES 
", <OLD> MUST BE A NAME WHICH IS ALREADY THERE, 

? <NEW> MUST BE A NAME WHICH DOES NOT YET EXIST 
? IF <OLD> IS A NON-DELETEABLE NAME, AN ERROR IS 
", PRINTED. ONLY THE TYPE AND VALUE FIELDS ARE 
? COPIED 


NEEDS s 

5 ON ARGUMENT STACKS 
", TYPE ( $NAME) 

", ADDR OF OLD NAME 

? TYPE <$NAME) 

? ADDR OF NEW NAME 

? 

; CALLSs 

", CLEARVAL - CLEAR VALUE 2< TYPE 


M.CMDCRENAME,..RENX,0,RESTORE,..RENA,..REN13 C 


036C 

l y 

^-renames 

.BYTE 

$CMDADR 


0360- 

06 

4* 

.BYTE 

(..RENX-RENAME)/l6+1 


036E- 

00 

-h 

. BYTE 

0 


0.36F y 

0000s35 


. WORD 

RESTORE 


0371“ 

038B “ 

-h 

„ WORD 

.„REN1 


0373“ 

0370“ 

4- 

.WORD 

. . RENA 


0375“ 

52454E41404 

54* 

.ASCIZ 

/RENAME/ 




h-3 




037C *“ 

00 


.BYTE 

0 ?NO SWITCHES 


0370“ 

63 

« w REMAs 

.BYTE 

99 ;SPECIAL 


037E *“ 

4E414D452C4E 

.ASCIZ 

/NAME,NEWNAME/ 


038B *“ 

CD 0000s08 

.RENls 

CALL 

ARG ? GET 

ARCS 

03SE *“ 

OAOAOO 


. BYTE 

$NAME,$NAME,$TAF 


0391 *“ 

E5 


PUSH H 

’SAVE TERMY 


0392“ 

FD6E01 


MOV 

L,1(Y) ?HL-3 

••OLD NAME 

0395“ 

FD6602 


MOV 

H,2(Y) 


0398 *“ 

E5 


PUSH H 



0399 •“ 

DDE1 


POP X 

5 IX—3 

• OLD NAME 

?>. 

co 

o 

DDCB027E 


BIT 

$BNDL,fFLAGS(X) ?NO-DELETE? 




NZERROR ER.REN ", NO? 

RENAME ERROR!! 

039F •- 

2804 

4* : 

JRZ „ . 

0002 


03 A 1 " 

CD 0000s15 

4* 

CALL ERRPGM 


03A4 •- 

2C 

4 - 

. BYTE 

ER.REN 
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03A5 
03A5 '■ 

FD5E06 

+„.0002: 

T 

MOV 

E ■ j 6 (Y) 

03 AS 

FD5607 


MOV 

D i 7 (Y) 

03AB" 

1A 


LDAX 

D 

03AC" 

FE02 


CPI 

$NULL 

in 

<L 

CO 

o 

2804 

+ 

NZERROR ERJMAE 

JRZ ».0003 

03B0 

CD 0000s15 

+ 

CALL 

ERRPGM 

03B3-" 

2D 

+ 

„ BYTE 

ER.NAE 

03B4 

03B4-' 

7E 

+..0003s 

1 

MOV 

A,M 

03B5 

12 


STAX 

D 

03B6 

E5 


PUSH 

H 

03B7 

21 0005 


LX I 

H,$NVALUE 

03BA 

19 


DAD 

D 

03BB - 

DD7E05 


MOV 

A,$NVALUE(X) 

03BE •” 

77 


MOV 

'MV A 

03BF •- 

23 


INX 

H 

03C0 

DD7E06 


MOV 

A,*NVALUE+1( 

03C3 -■ 

77 


MOV 

M, A 

03C4 

El 


POP 

H 

03C5 •- 

CD 0000sOD 


CALL 

CLEARVAL 

03C8 

El 


POP 

H 

03C9 •" 
03C A 

C9 

».RENXs 
»END 

RET 
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5 DE->NEW NAME 

5 A=TYPE OF NEW 
?ALREADY THERE? 

5 NAME ALREADY EXISTSC 


?A=TYPE OF OLD 
5SAVE IT 
’SAVE NAME PTR 
! HL=OFFSET OF VAL 
;HL->NEW VALUE 
?MOVE IN NEW VAL 
? THE HARD WAY 


5 HL—>TOP 

!CLEAR OLD VAL 
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AASIM 

005F 


ALSTR 

0000s07 

X 

BACKGR 

65CC 


CARTYP 

0000:OA 

X 

CLEARS 

60CA 


CNTRLC 

65CD 


CNVNAM 

0264-' 


CPRINT 

0000:OF 

X 

CURCX 

6814 


C. Cl 

0012 


C„8T 

0002 


C. Y 

0005 


DECSIY 

0000:10 

X 

DEVGLO 

6579 


DEVCL4 

6581 


DEVFB 

65CB 


DEVNT 

658D 


DEVVA 

65BD 


DEWC 

65C5 


DEVXCD 

65B3 


DOLPF'T 

62EA 


EDCCNT 

64A7 


EDNCX 

680C 


EDOCY 

680A 


EDPTRL 

64A9 


ERRPGM 

0000:15 

X 

ER.BOX 

001A 


ER.COR 

00 IB 


ER.DIV 

0018 


ER.FMT 

0038 


ER.LAB 

0025 


ER.NEG 

003A 


ER.NXT 

00 ID 


ER.PAR 

002A 


ER.SNP 

0031 


ER.TER 

0020 


EXTDEL 

002E 


E.TYP 

0000 


FCNT.J 

65D4 


FCNTY 

65E3 


FLAGS 

6SCB 


FREELS 

65E5 


GETDSK 

0000:1A 

X 

HELP 

OOOO" 

I 

INPTTY 

0000:IF 

X 

ISNL 

0000:22 

X 

KEYFLG 

67FF 


KLB 

OOOO:24 

X 

MACSTU 

6536 


MAMADR 

OOOO:26 

X 

NEWBOT 

6810 


NUMBUF 

6 4 A3 


NXTVAL 

OOOO:2C 

X 

OLDXY 

65EF 


OPRSTK 

6547 



ABORT 

OOOOS04 

X 

ARG 

OOOO:08 

X 

BLANK 

0020 


CHARSL 

65DD 


CLEARV 

OOOO s OD 

X 

CNTRLO 

65D9 


CORE 

OOEC"' 

I 

CR 

OOOD 


CIJRCY 

6816 


C.CX 

OOOB 


C.X 

0003 


C. YF 

0010 


DELBAG 

OOOO:11 

X 

DEVCLl 

657B 


DEVCL5 

6583 


DEVHCB 

658F 


DEVTNA 

65BB 


DEWAR 

6579 


DEWD 

6509 


DEVYCD 

65B5 


DOMORE 

OOOO:13 

X 

EDLONG 

6812 


EDNCY 

680E 


EDPN 

6806 


EDSTR 

681A 


ER.ARA 

002F 


ER.CHN 

0002 


ER.CTL 

0036 


ER. DP 

0037 


ER.FNF 

001C 


ER.MAC 

0022 


ER.NOT 

0023 


ER.OFL 

0017 


ER.REN 

Q02C 


ER.SPC 

002E 


ER.UFL 

0033 


E.HVAL 

0002 


E. VAL 

0001 


FCNTK 

65D5 


FINDHA 

0000:17 

X 

FOREGR 

65D0 


FSTDOL 

648C 


GETLPT 

OOOO:IB 

X 

HEXHL 

OOOO:ID 

X 

INPUT 

0170 •" 

I 

JUNK 

6542 


KEYF'TK 

6533 


LF 

OOOA 


MACTOP 

625E 


MAMSET 

OOOO:27 

X 

MI¬ 

OOOA 


NX T ABC 

OOOO:29 

X 

OLDCHR 

64A0 


ONEBUF 

6729 


OPRSZ 

655D 



ACOPY 

oooo;05 

X 

ARGSTK 

60CC 


BOTRAM 

6000 


CLEAR 

OOOO:OB 

X 

CMDSKO 

OOOO* OE 

X 

CNTRLU 

0015 


CPLARE 

611C 


CSBLOK 

668D 


GURREN 

64A5 


C.CY 

OOOD 


C. XF 

OOOF 


C.YS 

0009 


DELETE 

0136"' 

I 

DEVGL2 

657D 


DEVCL6 

6585 


DEVMO 

658B 


DEVTNB 

65BF 


DEWB 

65C1 


DEWN 

65B9 


DISPLA 

OOOO:12 

X 

DUMBST 

6577 


EDMODE 

681C 


EDNEWS 

64A5 


EDPO 

6804 


ENDSTR 

OOOO:14 

X 

ER.ARG 

0034 


ER.CMD 

00 IF 


ER.DEL 

0026 


ER.DSK 

0019 


ER.FOR 

0028 


ER.NAE 

002D 


ER.MUL 

0039 


ER.OPN 

0014 


ER.RET 

0024 


ER.STK 

0004 


ER.UNF 

0027 


E.LVAL 

0001 


FCNTH 

65D2 


FCNTL 

65D6 


FINDLA 

OOOO:18 

X 

FRAGSI 

0400 


FSTI.NT 

62EC 


GETOPIM 

OOOO:1C 

X 

INC5IY 

OOOO:IE 

X 

I NT 

OOOO:20 

X 

KBCNLP 

0163" 

I 

KEYTRK 

67F7 


LISTON 

65E2 


MAXFRG 

0040 


NBLKB 

OOOO 


NLPNT 

OOOO;28 

X 

NXTLNK 

OOOO:2A 

X 

OLDCUR 

649F 


OPRL 

0014 


OUTCH 

OOOO:2D 

X 


ALLOC OOOO;06 X 
ASSIGN 0000;09 X 
BOTTOM 64A9 
CLEAR! 0000;OC X 
GNTRL OOOC ' 
CNTRLZ 65E4 
CPLSIZ 0140 
CSFLAG 6260 
C.CO 0011 
C.DP 0013 
C.XS 0007 
DDTON 65CE 
DEVBL 6589 
DEVCL3 657F 
DEVCL7 6587 
DEVNM 65B7 
DEVTNC 65G3 
DEVVBL 6591 
DEWS 65C7 
DOLPLH 62E8 
EDBCNT 64AD 
EDNAME 64A1 
EDOCX 6808 
EDPTRC 64AB 
ERASIT 0002 
ER.ASN 0015 
ER.CNV 0016 
ER.DIM 0030 
ER.EDT 0035 
ER.IMP 0003 
ER.NAM 0029 
ER.NUM 002B 
ER.OVE 00IE 
ER.SEP 0021 
ER.SW 0032 
EVAL 0000;16 X 
E.SIZ 0005 
FONTI 65D3 
FCNTV 65E0 
FIRST 64A3 
FREE 0000;19 X 
FWDPTR 65E7 
HCAREA 6593 
INCRQ 65E9 
ISNAME 0000;21 X 
KBLOCK 65F1 
KISNL 0000;23 X 
LN 0000:25 X 

MNMX 65EB 
NBL.KM 0001 
NSADDR 6802 
NXTPTR 0000:2B X 
OLDKEY 649D 
OPRSP 655B 
OUTOFF 62E7 





TDL 280 CP/M DISK ASSEMBLER VERSION 2.21 ' PAGE 16 

CM2 - 

"i~•+* hhh- SYMBOL TABLE +*+*4‘++ 


PGNT 

655E 


PDECBC 

0000S2E 

X 

F'OINTE 

64A7 


PONOFF 

65DA 


PRINT 

02DF-" 

I 

PRINTF 

00005 30 

X 

PRLPT 

033B •" 


PROMPT 

02FA" 

I 

PSHQPN 

0000 n33 

X 

PUTOP.N 

OOOOs 34 

X 

RANSHT 

655F 


RENAME 

036C 

I 

RMDTMP 

6538 


RUBACK 

0005 


SCANS 

0000 s 37 

X 

SCANLA 

0000 s38 

X 

-SCR WIN 

67CD 


SFREE 

0000 5 3A 

X 

STACK 

60C8 


STAKTO 

6000 


SUBSTU 

6534 


SWITCH 

0000 5 3C 

X 

TAPBUF 

64B3 


TAPCON 

64AF 


TEMPCH 

0000s3E 

X 

TEMPHD 

6 OCA 


TMPARG 

67 AD 


TOP 

6818 


TTYINT 

62E3 


TTYF'TR 

62E1 


USREND 

65F1 


V3PTR 

6573 


VIPLH 

6545 


VOICEO 

6563 


2GIM2 

0001 


ZGREND 

68 ID 


SADDRI 

0005 


SADDRS 

0009 


SANYVA 

FFFE 


SARGF'T 

0011 


SCALLE 

GOOD 


SCMDAD 

0018 


SDATAP 

0007 


SDOLDE 

0001 


SEND 

001C 


SFADR 

OOOE 


SFORPT 

00 OB 


SFVAL 

0006 


SINPBU 

0018 


SINPPT 

0016 


SLENGT 

0001 


SLINPT 

0005 


SMIBEN 

00 IB 


SNAMAD 

OOOA 


SNDEL 

0080 


SNLINK 

0003 


SREPEA 

00 IE 


SRVSTU 

0013 


SSLEN 

0006 


SSTRAD 

0008 


STYPE 

0000 


SUSE 

0005 


»PROG. 

03C A 

X 





F'lXVAL 

65ED 


PNXT 

0322*“ 

I 

POUTCH 

0366 ■' 

I 

POWER 

OOOOs 2F 

X 

PRINTH 

0000531 

X 

PRINTR 

6540 


PRSTR 

G2C1Y 


PRTYPA 

OOOOs32 

X 

RAMEND 

7FFF 


RAMSTR 

6900 


RESTOR 

OOOO s 35 

X 

RETNON 

0000536 

X 

RUBOUT 

007F 


SAVESP 

625C 


SCANNL 

OOOOs 39 

X 

SCNEED 

0004 


SOPRSP 

653D 


SOPRSZ 

653F 


STREQK 

OOOOs 3B 

X 

STRSIZ 

6800 


TAB 

0009 


TABF’NT 

OOOOs3D 

X 

TAPPRO 

64B1 


TBFEND 

6533 


TEMPS 

62E5 


TEMPUN 

OOOOs 3F 

X 

TTYBEG 

6261 


TTYEND 

62E.1 


TXTWIN 

67E2 


IJARTFL 

6490 


VDCHAR 

649E 


VDNLF 

65CF 


WHATSI 

0283 < 

I 

WRMODE 

65EE 


SAADR 

0010 


SADDRF 

0007 


SANY 

001A 


SANYNA 

FFFC 


SBGPTR 

OOOF 


SBNDL 

0007 


SCPLBL 

002A 


SCSBLO 

0028 


SDOLOO 

0002 


SDVAL 

0000 


SFLAGS 

0002 


SFORBL 

0024 


SGOSUB 

001A 


SI ADR 

00 OC 


SIVAL 

0004 


SKEYBL 

0026 


SLOCF'T 

0009 


SMIBBL 

0022 


SNAME 

OOOA 


SNASCI 

0009 


SNULL 

0002 


SNVAL.U 

0005 


SSAME 

0020 


SSASCI 

OOOA 


SSTRF'T 

0003 


STAF 

0000 


.BLNK. 

OOOOs 03 

X 

»DAT A„ 

0000# 

X 
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.INSERT AsS.ASM 
REMARK / 

@ 

@ 

@ 

@ 

@ 

@ 

@ 


■a- 

•a-#* 

•a-*# 

-a-a-a-a-a-a-a- 

•a- 

* 

•a- 

a- 

•a* -a - ■a - a* a a- a 


@ 

® "WHEN YOU CARE ENOUGH TO PROGRAM 

@ THE VERY BEST" 

@ 

@ ZGRASS V2.OOOOOOOO 

SBY JAY FENTON, NOLA DONATO, AND TOM DEFANTI 

e (C) 1978 

@ 

6 / 

.INSERT As ZRAM.ASM 


.LINK 
. PREL 

.IDENT NAM 
„EXTERN AFREE 
.EXTERN ALLOC 
.EXTERN BALLY 
.EXTERN CARTYA 
.EXTERN CARTYP 
.EXTERN CHKAZ 
.EXTERN CLEARIT 
.EXTERN ERRPGM 
.EXTERN EVAL 
.EXTERN FREE 
.EXTERN GETLPT 
.EXTERN ING5TY 
.EXTERN INPTTY 
.EXTERN KISNL 
.EXTERN NLPNT 
.EXTERN NXTABC 
.EXTERN NXTLNK 
.EXTERN NXTVAL 
.EXTERN DUTCH 
.EXTERN PRINTA 
.EXTERN PRINTFF 
.EXTERN PRINTHL 
.EXTERN PUTOPND 
.EXTERN SFREE 
.XTERN TABPNT 
.EXTERN TEMPCHN 
.EXTERN TEMPUNCH 
.INTERN ARG 
.INTERN CLEARVAL 
.INTERN DELBAG 
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,INTERN FINDHASH 
„INTERN ISNAME 
.INTERN NAMADR 
.INTERN MAMBLD 
„INTERN NAMSET 
.INTERN PRTYPA 
.INTERN PSCAN 




? FINDHASH—GETS ADDR OF 

A-Z VAR INTO HL 



“IN A HAS CHARACTER 

IN IT 



? OUT HL->FWA OF HASH 

VARIABLE (A-Z) 

oooo 

GS 

FINDHASHs PUSH B 


0001 •' 

2600 

MVI H,0 


0003 **’ 

FE24 

cpi -$-• 

” IS $? 

0005 

2005 

•JRNZ . . NDOL 

• no—ALPHA 

0007 x 

21 648C 

LX I H 7 FSTDOL 

“FWA OF THIS GUY 

000A - 

180B 

JMPR ..FINO 

SAND EXIT 

oooc 

D641 

..NDOLs SUI -A" 

;GET OFFSET FROM 

5 CHAR IN A 

OOOE" 

6F 

MOV L,A 

SPUT RMNDR IN L 

000F-- 

29 

DAD H 

SMUL BY 16 

ooio- 

oo 

DAD H 


0011 •- 

29 

DAD H 


0012" 

29 

DAD H 


0013*" 

01 62EC 

LXI B* FSTINT 

5 GET ADDR OF FIRST ONE 

0016"' 

09 

DAD B 

SAND ADD IT IN 

0017" 

Cl 

..FINOs POP B 


0018" 

C9 

RET 




5 -h-DELBAG—DELETES STUFF 

tt 

BY TYPE-K¬ 



y 

5INs FWA OF NAMEBLOCK 

IN HL 



5 OUTs HL SAME, THING & 

: VALUE DELETED 



? NO ACTION IF HL=0 OR HL 

H 

-> 0 TYPE 

0019"' 

7C 

? 

DELBAGs MOV A, H 


001A" 

B5 

ORA L 


00 IB"' 

C8 

RZ 

SIGNORE IF HL=0 

ooic- 

E5 

PUSH H 


001D -' 

C5 

PUSH B 


001E - 

E5 

PUSH H 

3 PASS TO ROUTINE VIA fTHL 

001F -' 

4E 

MOV C,M 

5 TYPE 

0020 -' 

0600 

MVI B,0 

5 COMPUTE DISPATCH 

0022" 

21 002A*" 

LX I H,..DTAB 

5 ADDRESS 

0025"' 

CD 0000 s is 

3 CALL NXTABG 

3LIKE THIS 

0028-' 

E3 

XTHL 

S SWITCH -'EM 

0029 •" 

C9 

RET : 

SAND GOTO IT 

002A -' 

0063"' 

..DTAB s .WORD ..NOTYET 

“SET CARRY HERE 

002C " 

006E •" 

■ .WORD DEXIT 

S &NUL.L 

002E 

0063 ■" 

. WORD .„NOGO 

S $IVAL 

0030 -' 

0063 ■" 

.WURD «.NUGU 

3 $FVAL 

0032 ■" 

005B ■" 

. WORD ,.STR 

3 $STRADR 
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0034.'’ 

0044" 


.WORD ..NAME 

? $NAMADR 



0,036" 

004E" 


.WORD ..INT 

S $IADR 



0038 

004E •" 


.WORD ..INT 

5 $FADR 



003A" 

0053" 


.WORD ..ARA 

S$AADR 



0038"' 

006*3" 


.WORD ..NOTYET 

?,$CPLADR 



003E"' 

0063" 


.WORD ..NOTYET 

;$PIX 



0040 

0063"' 


.WORD .„NOTYET 

;♦GROUP 



0042" 

0063" 


.WORD ..NOGO 

;$CMDADR 



0044" 

E5 

..NAMES 

PUSH H 




0045"' 

CD 0000s15 


CALL NXTVAL 




0048" 

2803 


■JRZ . . DONT 




004A" 

CD 0019" 


CALL DELBAG 

?DELETE VALUE 



004D " 

El 

a u DUNl S 

POP H 




004E" 

CD 0071 "' 

. .INT s 

CALL CLEARVAL 




0051" 

181B 


JMF'R DEXIT 




0053 •" 

CD 0067"' 

. .ARAs 

CALL DECUSE 




0056" 

CD 0000s04 


CALL AFREE 




0059"' 

1813 


•JMPR DEXIT 




005B"' 

CD 0067"' 

. .STRs 

CALL DECUSE 

■DECR USE COUNT 



005E"' 

CD 0000 s1B 


CALL SFREE 




0061"' 

180B 


JMPR DEXIT 




0063"' 


» NOGOs 





0063" 


. . NOTYE 

Ts ERROR ER 

:. impi: 



0063 < 

CD 0000 s OB 

+ 

CALL ERRF’GM 




0066"' 

03 

+ 

+ 'J 

.BYTE ER.IMP 




0067" 

E5 

DECUSEs 

PUSH H S DECREMENT USE COUNT 



0068" 

C5 


PUSH B “ ASSUMES 

; USECOUNT #0 



0069" 

01 0005 


LX I B i $USE 




006C" 

09 


DAD B 




006D-" 

2s5 


DCR M 




006E " 

Cl 

DEXITs 

POP B 




006F "' 

El 


POP H 




0070"' 

C9 


RET 






5 *CLEARVAL—CLEARS 4 BYTES OF VALUE S< S 

:ETS 

f NULL 



5 INS 

HL->FWA OF NAME, 

IADR OR FADR 





* OUT s 

HL SAME, FIRST BYTE=$NUL.L AND *NVALUE 



s 

BYTES (4) ARE CLEAR 



0071" 

E5 

CLEARVALs PUSH H 




0072;" 

C5 


PUSH B 




0073"' 

3602 


MVI M,$NUL.L 

5 SET $NULL. IN 



0075 < 

01 0005 


LXI B,f>NVALUE 

5 POINT TO WHERE 

TO 

CLEAR 

0078 •" 

09 


DAD B 




0079 "' 

01 0004 


LX I B, 4 

; CLEAR 4 BYTES 



007C" 

CD 0000sOA 


CALL CLEARIT 

•5 GUESS WHAT 



007F "' 

18ED 


JMPR DEXIT 

1 BYE 
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0081 •' 
0082" 
0084" 
0085"' 
0087" 
0088"' 
008A" 


008B" 
0080 " 
008E •" 
0090" 
009.1 " 
0094 •" 
0095 •" 


0096" 
0097 •" 
0098" 
009B •" 
0090" 
009D "' 



5 MISNAME-- SEES IF 

THING IS NAME OR NUMBER* 

7E 

ISNAMEs 

MOV A, M 


FEOA 


CPI fNAMADR 


C8 


RZ 


FEOC 


CPI TIADR 


C8 


RZ 


FEOE 


CPI $FADR 


C9 


RET 



,“ •hPSCAN—SCANS OVER 

BALANCED PARENS 

D5 

PSCANs 

PUSH D 


1628 


MV I D, •" ("' 


1E29 


MVI E, ")-" 


23 


INX H 

? POINT PAST ";■( •" 

CD 0000s 06 


CALL BALLY 


Dl 


POP D 


C9 


RET 



5 *NAMS 

ET—POINTS HL 

AT END OF NAME, DE AT BEGINNING* 


? IN 

HL~>NAME IN 

ASCII IN COMMAND, ETC 


; OUT 

DE->NAME, HL 

->TERMINATOR OF NAME 

E5 

NAMSET: 

PUSH H 


Dl 


POP D 


CD 0000 s 08 

..NAMSs 

CALL CARTYP 

;DELIM? 

C8 


RZ 

? YUP 

23 


INX H 

? NEXT CHAR 

18F9 


■JMPR . . NAMS 



1NAMADR—GETS NAME ADDRESS FOR YA 
5 IN . DE->FIRST CHAR OF NAME 
? HL~>TERMINATOR AFTER NAME 

," (SETUP BY NAMSET, PROBABLY) 

5 A=0 TO SEARCH SYSTEM NAMES, 

5 A=1 TO HASH OFF FIRST LETTER 

S OUT HL~>DELIM FOLLOWING NAME INGL SWITCH IF CMD 

5 DE~>FWA OF NAME BLOCK IF Z SET 

? OR SAME AS ENTRY IF NAME NOT FOUND, 

5 BUT Z CLEAR n 

. BC->POINTER TO CODE TO EXEC IF CMD 

5 OR AT fNVALUE BYTES IN NAMBLOCK 

? OR, IF NOT FOUND (Z CLEAR CASE), 

? BC—>LAST NAME IN HASH TABLE 

5 CHAIN (THE ONE WITH 0 NLINK FIELD) 

? BC+2->P0INTER TO ARG LIST OR 0 FOR HELP 

5 IF STUPID NAME (STARTS WITH DELIM 

5 OR NUMBER), CARRY SET, OTHERWISE 

5 CARRY CLEAR. 

5 ALGORITHMS COMPARE (DE)+ WITH CURRENT NAME. 

? WHEN MATCH FAILS IF DE=HL., 

? THEN GOT A MATCH 

$ (IT WAS THE DELIMS THAT 
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FAILED TO MATCH) 

OTHERWISE, MO MATCH, CHAIN ON 
ONE TOUGH CASE-"IF HL->NULL., 

IT WILL MATCH NULL AT END 
OF NAME, SO WE COUNT HL~>NULL 
AS A MATCH 
UNLESS, OF COURSE, 

HL=DE IN THE BEGINNING ( ERROR > 


009F " 

DDES 

NAMADRs 

PUSH X 


00 A1 

FDE5 


PUSH Y 


00 AS" 

ES 


PUSH H 


00A4" 

D5 


PUSH D 

?SAVE IF NO FIND 

00A5 " 

DDE 1 


POP X 

5 I IX 

00A7 ■" 

4F 


MOV C,A 

5 SAVE FOR BELOW 

00A8 *“ 

1A 


LDAX D 

’GET FIRST CHAR 

00A9' - 

CD 0000*07 


CALL CARTYA 

?CHECK IT 

OOAC " 

385D 


■JRC ..EXIT 

;NO PLACE FOR NUMBER 

OOAE' 

37 

. DUMB* 

STC 

5 SET IN CASE Z SET 

OOAF 

285A 


JRZ ..EXIT 

5 NO DELIMS HERE EITHER 

00B1 •- 

13 


INX D 

;CHECK SECOND 

00B2" 

1A 


LDAX D 

' u 

•i « JI at 

00B3" 

CD 0000“07 


CALL CARTYA 

5 IF DELIM, IS A-Z 

00B6 **’ 

IB 


DCX D 

5 BACKUP 

00B7- 

F5 


PUSH PSW 

5SAVE CC'-S & A 

00B8" 

1A 


LDAX D 

9 GET FIRST CHAR AGAIN 

00B9 x 

CD 0000 '' 


CALL FINDHASH 

9 GET FWA OF TABLE 

OOBC" 

79 


MOV A,C 

9 0/1 FROM ENTRY?/ "MOV C, A" 

OOBD-" 

B7 


ORA A 

9 I S SYSNAMES (=0)? 

OOBE-" 

2806 


JRZ ..SYSN 

9 YUP 

ooco •- 

FI 


POP PSW 

9 CHECK CC"'S FROM CHKAZ 

OOC1 •" 

200A 


JRNZ ..NAML 

9 IS AT LEAST 2 CHARS 

00C3 ■- 

EB 


XCHG 

9 DE HAS POINTER NOW 

00C4 - 

1845 


JMPR ..EXIT 


0006 

FI 

..SYSNs 

POP PSW 

9 GET RID OF PUSHEE 

00C7 •" 

01 OOOE 


LXI B,14 

9 POINT TO SYSNAMES 

OOCA " 

CD 0000s13 


CALL NXTABC 


OOCD 

ES 

..NAMLs 

PUSH H 

9 SAVE PTR IN IY 

OOCE"' 

FDE1 


POP Y 


OODO •" 

01 0009 


LX I B,$NASCII 

9 POINT AT ASCI I 

00D3 

09 


DAD B 


00D4- 

1A 

„«NARs 

LDAX D 

9 LOAD CHAR INTO A 

00D5 

BE 


CMP M 

9 SAME AS (HD? 

00D6 " 

2023 


JRNZ ..NAG 

9 NOPE 

00D8 •" 

AF 


XRA A 

9 IS (HL)=0 

00D9 

BE 


CMP M 

« OOO 

7 : : : 

OODA " 

280C 


JRZ ..NAM 

9 YUP— MATCH 

OODC" 

23 


INX H 

9 BUMP 

OODD" 

13 


INX D 

9 BUMP 

OODE •" 

Cl 


POP B 

9 TERMINATOR ADDR IN BC 

UUDF 

C5 


PUSH B 

9 AND PUT BACK 

OOEO - 

79 


MOV A,C 

9 CHECK FOR =S 

00E1 

BB 


CMP E 

; 

00E2 y 

20F0 


JRNZ ..NAR 

9 LOOK MORE 

00E4 •" 

78 


MOV A,B 
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00E5 *“ 

BA 


CMP D 


00E6“ 

20EC 


JRNZ ..NAR 


DOES-' 

FDE5 

»„NAM5 

PUSH Y 


OOE A "' 

D1 


POP D 

5 Z—1? DE->FWA NAMEBLOCK 

OOEB" 

62 


MOV H,D 

5 COPY TO HL 

00 EC 

6B 


MOV L,E 


OOED 

01 0005 


LXI B,$NVALUE 

5 WANT BC->NVALUE 

OOF 0 " 

09 


DAD B 


00F1 " 

44 


MOV B,H 


00F2**’ 

4D 


MOV C* L 

?FOR EVERYBODY 

OOF3 "' 

1A 


LDAX D 

!GET TYPE OF NAME 

00F4" 

FE18 


CPI $CMDADR 

5 IF CMD, CHECK SWITCH 

00F6 *'* 

2819 


JRZ ..SWIT 

5 DO IT 

00F8*** 

AF 

.„COUTs 

XRA A 

;CLEAR THAT CARRY 

00F9 " 

1810 


■JMPR ..EXIT 


OOFB 

FDE5 

« «NAG s 

PUSH Y 


OOFD •- 

El 


POP H 


OOFE" 

DDES 


PUSH X 


0100- 

D1 


POP D 

5 RESTORE DE 

oioi- 

CD 0000s14 


CALL NXTLNK 

‘GET THAT LINK 

0104" 

20C7 


JRNZ ..NAML 

5 IF NON-ZERO 

0106 " 

FDE5 


PUSH Y 

5 GET LAST ONE IN BC 

0108-' 

Cl 


POP B 

"LIKE THAT 

0109'' 

F6FF 


OR I -1 

5 CLEAR Z 

01 OB'' 

El 

.„EXITS 

POP H 

? GET ORIG TERMY BACK 

01 oc •" 

FDE1 

„ .EXls 

POP Y 


OlOE" 

DDE 1 


POP X 


0110" 

C9 


RET 


0111"' 

El 

,.SWIT! 

POP H 

5 GET ORIG TERMY BACK 

0112" 

E5 


PUSH H 

? FOR ..COUT 

0113" 

7E 


MOV A,M 

?CHECK DELIM FOR SWITCH 

0114" 

FE2E 


CPI EXTDEL 


0116" 

20E0 


JRNZ ..COUT 


0118" 

El 


POP H 

5 STACK MANAGEMENT 

0119" 

•“•O 


INX H 

5 POINT PAST 

011A "' 

CD 0000s08 


CALL CARTYP 

5ALPHANS ONLY 

01 ID" 

288F 


JRZ „.DUMB 

? DUMMYi 

01 IF" 

03 


INX B 

5 JUMP OVER 4BYTES INFO 

0120" 

03 


INX B 


0121" 

03 


INX B 


0122" 

03 


INX B 


0123" 

OA 

„„SCMR “ 

LDAX B 

?SCAN TO Z OF 

0124" 

03 


INX B 

5 ASCIZ NAME 

0125" 

B7 


ORA A 


0126" 

20FB 


JRNZ ..SCMR 

5 PAST NULL NOW 

0128" 

OA 


LDAX B 

;DOUBLE NULL? 

0129" 

B7 


ORA A 


012 A " 


..BADs 

ZERROR ER.SW 

?SWITCH ERROR! 

012 A " 

2004 

4* 

JRNZ ..0001 


0 12C "' 

CD 0000s.OB 

+ 

CALL ERRF'GM 


012F" 


4* 

.BYTE ER.SW 


0130" 


.000IS 

1 


0130" 

per 


PUSH B 

"SAVE B 

0131 " 

E5 


PUSH H 

5 SAVE PTR TO FIRST CHAR 

0 i c*2 * 

03 


INX B 

5 OF TYPED SWITCH 






TDL Z80 i 

CP/M DISK ASS 

iEMBLER VER: 

SION 2.21 

PAGE 7 

NAM 

ZGRASS NAME 

ROUTINES 



0133-' 

03 


INX B 

5 NOW ADVANCE PAST 

0134-* 

03 


INX B 

1ACODE AND 

0135-* 

03 


INX B 

5 ARGLIST PTRS 

0136-' 

7E 

..SWICs 

MOV ArM 

5 GET USER CHARACTER 

0137- 

B7 


ORA A 

?IS NULL? 

0138" 

2810 


.JRZ . . OKSW 

5 MATCH! 

013 A " 

0A 


LDAX B 

“GET SWITCH CHAR 

013B" 

BE 


CMP M 

5 SEE IF MATCHES 

013D- 

23 


INX H 

5 BUMP ANYWAY 

013D" 

03 


INX B 

5 B TOO 

013E- 

2RF6 


.JRZ . .SWIG 

? MATCHES! 

0140- 

2B 


DCX H 

?POINT BACK AT DELIM 

0141- 

CD 0000s 08 


CALL CARTYP 

5CHECK IF USER AT DELIM 

0144"' 

2804 


JRZ ..OKSW 

3 ONLY WAY TO GET OUT 

0146*“ 

El 


POP H 

5 RESTORE PTR TO TYPED SW 

0147- 

FI 


POP PSW 

?TRASH OLD BC, USE NEW 

0148- 

18D9 


JMPR ..SCMR 

5 SCAN MORE 

014 A"' 

FI 

..OKSWs 

POP PSW 

? TRASH OLD HL 

014B- 

Cl 


POP B 

5 GET ->T0 CODE?<ARGL I ST 

014C" 

AF 


XRA A 

;SUCCESS 

014D- 

18BD 


JMPR ..EX1 

? BYE ! 



! *NAMBLD—BUILDS A NAME NODE* 



5 INS 

DE?<HL3<BC SETUP 

BY NAMADR 



5 OUT 

HL SAME 




n 

7 

DE->FWA OF NAMEBLOCK 



u 

7 

BC CLOBBERED 




?NAMEBLOCK LOOKS LIKE s 

TYPE 



« 

7 


LENGTH 



it 

7 


FLAGS 



7 


LINK TO NEXT NAME(2) 



7 ' 

INTEGER VALUE 

LINK TO VALUE(2) OR5 



n 

7 


FLOAT VALUE OR ZERO(2) 



7 


ASCII NAME 



5 GAME PLANS 1. FILL 

IN TYPE AND FLAGS 



IS 

7 

2. CHAIN IN UNLINK 



5 

3. COPY 

IN ASCIZ NAME 

014F- 

DDES 

NAMBLDs 

PUSH X 


0151"' 

E5 


PUSH H 


0152- 

C5 


PUSH B 


0153- 

A7 


ANA A 

5 CLEAR CARRY 

0154"' 

ED52 


DSBC D 

? GET LENGTH 

0156" 

E5 


PUSH H 

; IN HL 

0157" 

7D 


MOV A. L 

5 GET LENGTH/16 

0158"' 

C609 


ADI $NASCII 

? ADD IN HEADER LENGTH 

015 A - 

E6FO 


AMI OFOH 

;CLEAR LOW BITS 

015C- 

IF 


RAR 


015D- 

IF 


RAR 


015E" 

IF 


RAR 


015F- 

IF 


RAR 

5 DIV BY 16 
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0160- 

CD 0000s05 

CALL ALLOC 

5 WANT A BLOX 

0163"- 

E5 

PUSH H 

5 HL HAS FWA OF BLOCK 

0164-' 

3602 

MVI M,$NULL 

?VALUELESS NAME 

0166"' 


INK H 

;POINT TO FLAGS 

0167-' 

jt y* «*» 

INX H 

5 AND CLEAR FROM THERE ON 

0168- 

01 0007 

LXI B,$NASCI1—2 


016B- 

CD 0000SOA 

CALL CLEARIT 

5 ZEROES 

016E - 

El 

POP H 

5 GET FWA FROM ALLOC ABOVE 

016F- 

Cl 

POP B 

? GET LENGTH FROM DSBC ABOVE 

0170*“ 

DDE 1 

POP X 

,GET BC FROM ENTRY (LAST 

5 IN HASH TABLE ADDR) 

0172'- 

DD7503 

MOV $NLINK(X),L 

5 POINT HASH ENTRY 

0175"' 

DD7404 

MOV $NLINK+1(X), 

H ? TO US 

0178'- 

E5 

PUSH H 

?SAVE FWA AGAIN 

0179" 

C5 

PUSH B 

? SAVE LENGTH 

017A " 

01 0009 

LXI B,$NASCII 

!POINT AT ASCIZ LOG 

017D •" 

09 

DAD B 

? HL-O-WHERE TO ST ICK 

017E •" 

Cl 

POP B 

?RESTORE B 

017F-" 

EB 

XCHG 

SDE HAS WHERE FROM 

0180" 

EDBO 

LEHR 

5 DO IT 

o 

CO 

r*o 

AF 

XRA A 


0183"' 

12 

STAX D 

?STUFF A NULL 

0184'" 

D1 

POP D 

5FWA IN DE 

0185"' 

El 

..BYES POP H 


0186"' 

DDE! 

POP X 


0188"' 

C9 

RET 

; BYE 


? ARG 

n 

r 

5 INs HL-O-TERMINATOR (BLANK, COMMA) 

“ CALL ARG 

" .BYTE ARG1,ARG2,...,$TAF 

** 

5 OUTs IY—>TYPE 

5 STUFF 

? TYPE 

? STUFF 

? « a a 

; o 

? AND HL->TERMINATOR 

? (BLANK, COMMA, NL OR NULL) 


5 NARRATIVE BY .JAY FENTONS 
5ZGRASS ARGUMENT SCANNER 

5 THIS ROUTINE PREPROCESSES THE ARGUMENTS TO A 
5 COMMAND AND LEAVES THEM ON THE VALUE STACK 
SCIY STACK). A LIST SPECIFYING HON TO 
5 SCAN THE ARGUMENTS FOLLOWS INLINE AFTER THE 
" t-ALL 

;ON ENTRY, HL POINTS AT THE DELIMITER FOLLOWING 
5THE COMMAND NAME 

5ON EXIT, HL POINTS BEYOND THE LAST ARG SCANNED 
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5 AND IY POINTS AT THE FIRST ENTRY ON THE 
5 VALUE STACK. 

5 ENTRIES ON THE STACK CONSIST OF A TYPE BYTE 
5 FOLLOWED BY 4 BYTES OF VALUE 

5 REGISTER USE! HL=STRIN6 POINTER 
5 IX=LIST POINTER 

? IY=VALUE POINTER 


0189"' 

DDES 

ARC: 

XTIX 5 SAVE 

IX AND USE TO FETCH ARG' 

0188" 

CD 0000!OF 

..ARG1: 

CALL INC5IY 


018E"' 

FDE5 


PUSH Y 

5 SAVE FOR LATER 

0190"' 

CD 0000 !11 

..ARG2 s 

CALL KISNL 

5E0L ALREADY? 

0193"' 

282E 


•JRZ . . EMTY 

5 YUP 

0195 

FE29 


CPI "' > •- 

5 CLOSE PAREN? 

0197' 

282A 


JRZ ..EMTY 

; OK 

0199-' 

FE2C 


CPI 

;COMMA? 

019B"' 

2001 


JRNZ ..ARG3 

? MUST A BEEN SPACE 

019D •" 



INX H 

5 SKIP COMMA 

019E"' 

DD7E00 

..ARG3! 

MOV A,0<X> 

j GET TYPE PANTED 

01 A 1 "' 

FEOO 


CPI $TAF 

STHAT'S ALL? 

01 A3 "' 

200B 


JRNZ ..ARG4 

? NAH 

01A5"' 

FD360000 

..AOUT: 

MVI 0(Y)j 0 

?TERMINATE LIST 

01A9-' 

FDE1 


POP Y 

“WIND DOWN 

01AB •' 

DD23 


INX X 

;JUMP OVER $TAF,ETC. 

01AD-" 

DDES 


XTIX 

5 RSTORE X 

01AF"' 

C9 


RET 


01 BO •" 

FE1E 

.„ARG4: 

CPI $REPEAT 

5 MORE? 

01 B 2 "’ 

2005 


JRNZ ..ARG5 

5 NO 7 NEW TYPE 

01B4 "' 

DD2B 


DCX X 

? BACKUP 

01 B 6 " 

DD7E00 


MOV A,OCX) 

;GET PREVIOUS TYPE 

01B9 •" 

CD 0000 : 0 c 

„.ARG5: 

CALL EVAL 

;DO FETCH 

01 BC "’ 

CD 0000:OF 


CALL INC5IY 

?SPACE TO NEXT 

01BF •' 

DD23 


INX X 


Old' 

1 SCO 


JMF'R . . ARG2 

? Du it again 

01 C3"' 

DD7E00 

» „ EMTY: 

MOV A,OCX) 

5 SEE IF $TAF 

01 C 6 "' 

FEOO 


CPI *TAF 

5 IF SO7 EXIT 

01 C 8 "' 

28DB 


JRZ ..AOUT 


01C A "' 

~ FE1E 


CPI ^REPEAT 

?IF REPEAT 7 DITTO 

01CC"' 

28D7 


JRZ ..AOUT 


DICE"' 

DD23 


INX X 

5 TRY 1 PAST 

01 DO"' 

DD7E00 


MOV A,OCX) 

5SEE IF 1 PAST IS 

01D3"' 

FE1E 


CPI ^REPEAT 

?IS REPEAT 

01D5 "' 

28 CE 


JRZ ..AOUT 
ERROR ER.UNFC 

; ALSO OK C NO ARCS CAS! 

01D7 " 

CD 0000:OB 

+ 

CALL ERRPGM 

■ : V■ - A: \: ' ; 

01 DA"' 

27 

+ 

3 

.BYTE ERJJNF 


01 DB"’ 

FD7E00 

F’RTYPE: 

MOV A 7 0(Y) 

? GET TYPE 


PRTYPA - PRINTS TYPE AS PASSED IN A 


+ 
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01DE" 

C5 

n ... 

PRTYPA; 

PUSH B 


01DF" 

E5 


PUSH H 

5 PRINT TYPE WANTED 

01EO •" 

4F 


MOV Co A 

5 MAKE BC OFFSET 

01 E l •- 

0600 


MVI B,0 


01E3 

21 01FA" 


LXI H,..PTAB 

;GET BASE 

01E6-- 

CD 0000s13 


CALL NXTABC 

iGET ADDRESS 

01E9 •" 

CD 0000;19 


CALL PRINTHL 

?PRINT IT 

01 EC" 

BE 


CMP M 

?IS DOUBLE NULL? 

01 ED" 

2008 


JRNZ ..DONE 

5 NAH 

01EF •“ 

CD 0000s18 


CALL PRINTFF 


01F2-" 

4E414D4500 


„ASCIZ /NAME/ 


01F7 -' 

El 

».DONE; 

POP H 

5 POP 

01 F8‘" 

Cl 


POP B 


01F9 "' 

C9 


RET 


01 FA"' 

020C •" 

..PTAB; 

WORD . . LOST 

? $TAF 

01FC - 

022C " 


.WORD ..NAME 

? $NULL 

01FE-" 

0217" 


.WORD ..NUM 

? 41VAL 

0200 •" 

0217- 


.WORD ..NUM 

5 $FVAL 

0202- 

0210- 


.WORD ..STR 

? $STRADR 

0204" 

022C " 


.WORD ..NAME 

? $NAMADR 

0206-' 

0225-' 


.WORD ..NUMN 

5 $IADR 

0208-' 

0225 ; 


. WORD . . NUMIM 

5 fFADR 

020A" 

02 IE-' 


.WORD ..ARRN 

5 $AADR 


020C -' 

3F3F3F00 

. LOST; 

.ASCIZ 

/???/ 

0210-' 

535452494E 4 7 

..STR: 

.ASCIZ 

/STRING/ 

0217’- 

4E554D424552 

..NUM: 

.ASCIZ 

/NUMBER/ 

021E-' 

415252415900 

....ARRN: 

.ASCIZ 

/ARRAY/ 

0224-' 

00 


.BYTE 0 

0225-' 

4E554D424552 

..NUMN: 

.ASCIZ 

/NUMBER/ 

022C-' 

0000 

„.NAME: 

.BYTE 0 

i 0 

022E x 


NAMEND: 

. END 
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SYMBOL TABLE 

m|m m|m 







AASN 

005F 

AFREE 

0000504 X 

ALLOC 

0000505 

X 

ARG 

0189" I 

ARGSTK 

60CC 

BACKGR 

65CC 

BALLY 

OOOOs 06 

X 

BLANK 

0020 

BOTRAM 

6000 

BOTTOM 

64A9 

CARTYA 

0000507 

X 

CARTYP 

0OOO 5 08 X 

CHARSL 

65DD 

CHKAZ 

00005 09 X 

CLEARI 

0000 5 0A 

X 

CLEARS 

60CA 

CLEARV 

0071" I 

CNTRL 

OOOC 

CNTRLC 

65CD 


CNTRLO 

65D9 

CNTRLU 

0015 

CNTRLZ 

65E4 

CPLARE 

611C 


CPLSIZ 

0140 

CR 

GOOD 

CSBLOK 

668D 

CSFLAG 

6260 


CURCX 

6814 

CURCY 

6816 

CURREN 

64A5 

C. CO 

0011 


C. Cl 

0012 

C.CX 

OOOB 

C.CY 

GOOD 

C. DP 

0013 


C.ST 

0002 

C. X 

0003 

C. XF 

OOOF 

C. XS 

0007 


C.Y 

0005 

C„ YF 

0010 

C.YS 

0009 

DDTON 

65CE 


DECUSE 

0067-' 

DELBAG 

0019 I 

DEVBL 

6589 

DEVCLO 

6579 


DEVCL1 

657B 

DEVCL2 

657D 

DEVCL3 

657F 

DEVCL4 

6581 


DEVCL5 

6583 

DEVCL6 

6585 

DEVCL7 

6587 

DEVFB 

65CB 


DEVHCB 

658F 

DEVMO 

658B 

DEVNM 

65B7 

DEVNT 

658D 


DEVTNA 

65BB 

DEVTNB 

65BF 

DEVTNC 

6503 

DEVVA 

65BD 


DEWAR 

6579 

DEWB 

65C1 

DEVVBL 

6591 

DEVVC 

65C5 


DEWD 

65C9 

DEWN 

65B9 

DEWS 

UJ DEV X CD 65B3 

DEVYCD 65B5 


DEXIT 

006E 

DOLPLH 

62E8 

DOLPPT 

62EA 


DUMBST 

6577 

EDBCNT 

64AD 

EDCCNT 

64A7 

EDLONG 

6812 


EDMODE 

681C 

EDNAME 

64A1 

EDNCX 

680C 

EDNCY 

680E 


EDNEMS 

64A5 

EDOCX 

6808 

EDOCY 

680A 

EDPN 

6806 


EDPO 

6804 

EDF'TRC 

64 AB 

EDPTRL 

64 A9 

EDSTR 

681A 


ERABIT 

0002 

ERRF'GM 

0000 sOB X 

ER.ARA 

002F 

ER.ARG 

0034 


ER.ASN 

0015 

ER.BOX 

001A 

ER.CHN 

0002 

ER.CMD 

00 IF 


ER.CNV 

0016 

ER.COR 

001B 

ER.CTL 

0036 

ER„DEL 

0026 


ER.DIM 

0030 

ER.DIV 

0018 

ER. DP 

0037 

ER.DSK 

0019 


ER.EDT 

0035 

ER.FMT 

0038 

ER..FNF 

001C 

ER.FOR 

0028 


ER.IMP 

0003 

ER.LAB 

0025 

ER.MAC 

0022 

ER.NAE 

002D 


ER.NAM 

0029 

ER.NEG 

003A 

ER.NOT 

0023 

ER.NUL 

0039 


ER.NUM 

002B 

ER.NXT 

00 ID 

ER.OFL 

0017 

ER.OPN 

0014 


ER.OVE 

00 IE 

ER„PAR 

002A 

ER. REN 

002C 

ER.RET 

0024 


ER.SEP 

0021 

ER.SNP 

0031 

ER.-jSPC 

002E 

ER.STK 

0004 


ER. SW 

0032 

ER.TER 

0020 

ER.UFL 

0033 

ER.UNF 

0027 


EVAL 

OOOOsOC X 

EXTDEL 

002E 

E.HVAL 

0002 

E.LVAL 

0001 


E.SIZ 

0005 

E.TYR 

0000 

E. VAL 

0001 

FCNTH 

65D2 


FCNTI 

65D3 

FCNT.J 

65D4 

FCNTK 

65D5 

FCNTL 

65D6 


FCNTV 

65E0 

FCNTY 

65E3 

FINDHA 

0000-' I 

FIRST 

64A3 


FLAGS 

65CB 

FOREGR 

65D0 

FRAGS I 

0400 

FREE 

OOOOs OD 

X 

FREELS 

65E5 

FSTDGL 

648C 

FSTINT 

62EC 

FWDPTR 

65E7 


GETLPT 

OOOO5OE X 

HCAREA 

6593 

INC5IY 

OOOOsOF X 

INCRO 

65E9 


INPTTY 

0000510 X 

ISNAME 

0081" I 

JUNK 

6542 

KBLOCK 

65F1 


KEYFLG 

67FF 

KEYPTK 

6533 

KEYTRK 

67F7 

KISNL 

0000 5 11 

X 

L.F 

OOOA 

LISTON 

65E2 

MACSTU 

6536 

MACTOR 

625E 


MAXFRG 

0040 

MNMX 

65EB 

NAMADR 

009F" I 

NAMBLD 

014F-" 

I 

NAMEND 

Q22E-" 

NAMSET 

0096 I 

NBLKB 

0000 

NBLKM 

0001 


NENBOT 

6810 

NL 

OOOA 

MLPNT 

0000512 X 

NSADDR 

6802 


NUMBUF 

6 4 A3 

NX TABC 

OOOOs13 X 

NXTLNK 

OOOOs14 X 

NXTVAL 

0000515 

X 

OLDCHR 

64A0 

OLDCUR 

649F 

OLDKEY 

649D 

OLDXY 

65EF 

; . ,: V 

ONEBUF 

6729 

OPRL 

OO14 

OPRSP 

655B 

OPRSTK 

6547 


OPRSZ 

655D 

DUTCH 

OOOOs16 X 

. OIJTOFF 

62E7 

PONT 

655E 


PIXVAL 

65ED 

POINTE 

64A7 

PONOFF 

65 DA 

PRINTA 

OOOOs17 

X 

PRINTF 

OOOOs18 X 

PRINTH 

OOOOs19 X 

PRINTR 

6540 

PRTYPA 

01DE 

I 

PRTYPE 

01DB 

PSCAN 

008B I 

PUTOF’N 

000051A X 

RAMEND 

-jpp-p 


RAMSTR 

6900 

RANSHT 

655F 

RMDTMP 

6538 

RUBACK 

0005 


RUBOUT 

007F 
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SAVESP 625C 
SOPRSP 653D 
STRSIZ 6800 
TAPBUF 64B3 
TEMPCH 0000sID X 
TMPARG 67AD 
TTYINT 62E3 
USREND 65F1 
VIPLH 6545 
ZGREND 68ID 
LABORS 0009 
UARGPT 0011 
UCMDAD 0018 
UDOLDE 0001 
UFADR OOOE 
UFVAL 0006 
$INPPT 0016 
ULINPT 0005 
UNAMAD 000A 
UNLINK 0003 
URVSTU 0013 
USTRAD 0008 
UUSE 0005 


SCNEED 0004 


SOPRSZ 

653F 

SUBSTIJ 

6534 

TAPCON 

64AF 

TEMPHD 

60CA 

TOP 

6818 

TTYPTR 

62E1 

V3PTR 

6573 

VOICEO 

6563 

UAADR 

0010 

UANY 

001A 

UBGPTR 

OOOF 

UCPLBL 

002A 

UDOLOO 

0002 

UFLAGS 

0002 

UGOSIJB 

001A 

UIVAL 

0004 

ULOCPT 

0009 

UNAME 

OOOA 

UNULL 

0002 

USAME 

0020 

USTRPT 

0003 

.BLNK. 

0000 s 0 


SCRWIN 67CD 
STACK 60C8 
TAB 0009 
TAPPRO 64B1 
TEMPS 62E5 
TTYBEG 6261 
TXTWIN 67E2 
VDCHAR 649E 
WRMODE 65EE 
UADDRF 0007 
UANYNA FFFC' 
UBNDL 0007 
UCSBLO 0028 
UDVAL 0000 
UFORBL 0024 
UIADR OOOC 
UKEYBL 0026 
UMIBBL 0022 
UNASCI 0009 
UNVALU 0005 
USASCI OOOA 
UTAF 0000 
.DATA. 0000* X 


SFREE 

0000“ 

IB 

X 

STAKTO 

6000 



TABPNT 

0000 s 

ic 

X 

TBFEND 

6533 



TEMPUN 

0000« 

IE 

X 

TTYEND 

62E1 



UARTFL 

649C 



VDMLF 

65CF 



ZGIM2 

0001 



UADDRI 

0005 



UANYVA 

FFFE 



UCALLE 

OOOD 



UDATAP 

0007 



UEND 

001C 



UFORPT 

OOOB 



UINPBU 

0018 



ULENGT 

0001 



UMIBEN 

00 IB 



UNDEL 

0080 



UREPEA 

00 IE 



USLEN 

0006 



UTYPE 

0000 



.PROG. 

022E-" 


X 
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CP/M DISK ASSEMBLER VERSION 2.21 
ZGRASS—THIS IS itl THE VERY BEST PART OF THE TRIP 


.INSERT AsS.ASM 
©.REMARK / 

© 

© 

© 

© 

© 

© 

© 


© 

© 

© 

© 

© 

© 

©BY 
© 

© 

©/ 

.INSERT As ZRAM.ASM 
.INSERT AsIOEQU.ASM 


# 

# * # 
tt-H-a 

* 

* 

* 

* 


"WHEN YOU CARE ENOUGH TO PROGRAM 
THE VERY BEST" 

ZGRASS V2.OOOOOOOO 

JAY FENTON, NOLA DONATO, AND TOM DEFANTI 
CO 1978 


.LINK 
. PREL 

.IDENT .MAIN. 
.INTERN .MAIN. 

„ INTERN ABORT* 
.INTERN ARGLIN 
.INTERN CMDREN 
.INTERN CMDRES 
.INTERN CMDSKP 
.INTERN CMDSKO 
.INTERN CNTCK 
. INTERIM CZCHEK 
.INTERN DOCMD 
.INTERN DOMORE 
.INTERN ERRPGM 
.INTERN INIDEV 
.INTERN LINEF' 
.INTERN PRUNE 
.INTERN RESTART 
.INTERN RETNONE 
.INTERN RETONE 
.INTERN RGBINI 

.EXTERN ALLOC 
.EXTERN ARG 
.EXTERN ARVAL 
.EXTERN CARTYP 
.EXTERN CLEARIT 
„EXTERN CMDTAB 
„EXTERN CORCHK 
.EXTERN CORINI 
.EXTERN DELMIB 
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.EXTERN DOCHK 
.EXTERN EVAL 
.EXTERN EVALARG 
.EXTERN FINDHASH 
.EXTERN FREE 
.EXTERN. FREEALL 
.EXTERN GETLPT 



.EXTERN INIVDR 
-EXTERN INPTTY 
.EXTERN ISNL 
.EXTERN ISTERM 
.EXTERN KBMIB 
.EXTERN KILMIB 
.EXTERN KISNL 
.EXTERN KLB 
.EXTERN MAKMIB 
.EXTERN NAMADR 
.EXTERN NAMSET 
.EXTERN NLPNT 
.EXTERN NXTABC 
.EXTERN NXTLNK 
.EXTERN NXTPTR 
.EXTERN NXTVAL 
.EXTERN DUTCH 
.EXTERN PDECA 
.EXTERN PRINT 
-EXTERN PRINTA 
-EXTERN PRINTFF 
.EXTERN PSCAN 
„EXTERN PUTLPT 
.EXTERN SCANLAB 
.EXTERN SCANNL 
-EXTERN SCLEAR 
-EXTERN SWITCH 
-EXTERN UARTINT 
-EXTERN ZGINT 


0000*-’ 

00 


NOP 


0001 

C3 0004" 


JMP 

ZBEGIN 

0004-' 

AF 

Z BEGINS 

XRA 

A 

0005-' 

D320 


OUT 

NORML 

0007 •- 

C3 03E8-" 


JMP RESTART 

000A -' 


o 

. BLKW 

o 

0010*- 

0000 

DR 

. WORD 

0 

0012-' 

0000 

INTTABs 

. WORD 

0 

00 14 ■" 

00005 2F 


. WORD 

UARTINT 

0016-' 

0000s30 

ZGITABs 

.WORD 

ZGINT 

0018-' 
004C -' 


INIDEVs 

. BLKB 

4EH-26 

004C •" 

0000 


. WORD 

0 

004E •" 

0078 


. WORD 

123 

0050 -' 

00B9 


. WORD 

*j p«ET 

0052 -' 

OOFB 


„ WORD 

251 


Alloc ^ 

G &T<c y 


H€r%&YT 
tvcTiy 
ujr £ 


GHT PEN GOODIE 


5 LIGHT PEN INTERRUPT AD 

? NCU SERVICE REQUEST 
? IJART INTERRUPT 
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BEST PART OF THE TRIP 


0054 •' 

0007 


.WORD 7 


0056" 

005B 


.WORD 5BH 


0058"' 

00 A5 


.WORD 0A5H 


005A" 

0008 


.WORD 8 


005C ■" 

0001 


.WORD 1 


005E 

0047 


.WORD 47H 


0060"' 

0003 


.WORD 3 


0062"' 

002C 


.WORD 44 


0064" 
0066 •" 

oocc 

ENDDEVs 

.WORD 204 




. zGRASS NMI ROUTINE 


0066"' 

00 


NOP 


0067" 

C3 006A"' 


■JMP NMIROU 


006A" 

AF 

MMIROUs 

XRA A 


006B"' 

D320 


OUT NORML 


006D" 

C3 03E8" 


JMP RESTART 


0070" 

C3 00A2 "' 

RESDDT 5 

JMP ABORT 




? COMMAND ACT I 

0073"' 

3A 65CD 

CNTCKs 

LDA CNTRLC 

! CHECK 

0076"' 

B7 


ORA A 

5 IS ZILCH? 

0077 ■" 

2029 


JRNZ ABORT 

5 NOPE™ABORT 

0079" 

3A 65E4 


LDA CNTRLZ 

? GET CONTROL Z 

007C"\ 

B7 


ORA A 


0070" 

C9 


RET 

;SET CC-'S ONLY 

007E"' 

7C 

KILIST5 

MOV A,H 

;IGNORE IF ZERO 

007F "' 

B5 


ORA L 


0080 "' 

C8 


RZ 


0081"' 

CD 00005 OC 

..I<15 

CALL DELMIB 

5 ZAP MIB 

0084"' 

01 OOOF 


LXI B,$BGPTR 

5 CHAIN TO NEXT 

0087"' 

CD 0000520 


CALL NXTABC 

5 u a « 

008A'" 

20F5 


JRNZ ..K1 


008C" 

C9 


RET 


008D "' 

2A 625E 

ZAPCZ 5 

LHLD MACTOP 

;CHECK CONTRLZ 

0090 "' 

3A 6260 


LDA CSFLAG 

5MIB LIST FIRST 

0093" 

B7 


ORA A 

?IS ANY MAYBE? 

0094 •" 

C8 


RZ 

? NAH 

0095"' 

CD 0000519 


CALL KILMIB 

“ZAP THEM 

0098 "' 

21 669A 


LXI H,CSBLOK+$CALLER ;POINT AT OLD 

009B"' 

CD 0000522 


CALL NXTPTR 

5 MACTOP THAT CONTROL.ZEED 

009E"' 

."•«♦***» / •’“icrr* 


SHLD MACTOP 

?AND STORE IT 

00 A1 " 

C9 


RET 


00A2"' 

31 60C8 

ABORT5 

LXI SP,STACK 

”RESET STACK 

00A5 ■" 

2A 62E8 

..KILLS 

LHLD DOL.PLH 

5 ZAP BACKGROUND 

00 A8" 

CD 007E "' 


CALL KILIST 


OOAB"' 

2A 6545 


LHLD VIPLH 

.FOREGROUND TOO 

OOAE"' 

CD 007E"' 


CALL KILIST 


GOBI " 

22 62E8 


SHLD DOL.PLH 

5 ZERO POINTER 

00B4"' 

22 6545 


SHLD VIPLH 

5 THIS ONE TOO 

00B7"' 

CD 008D"' 


CALL ZAPCZ 

5 ZAP MIB CHAIN ON CONTRLZ 
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ZGRASS—THIS 
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OF THE TRIP 


00 BA 

CD 0000s19 


CALL KILMIB 

5 ZAP MIB' S AND CALLERS 

OOBD" 

21 0000s24 


LX I H,DUTCH 



OOCO •" 

22 6540 


SHLD PRINTR 



00C3 **’ 

AF 

L.*' O n 
.« H P-. •„.* » 

XRA A 

5 NULL OUT CNTRLC 


00C4 "' 

32 65CD 


STA CNTRLC 

n 

7 «t « it 


00C7 

32 65D9 


STA CNTRLO 

5 TURN ON ALL PRINT, 

ETC. 

OOCA •' 

32 65E4 


STA CNTRLZ 

?CNTRLZ TOO 


OOCD 

32 6260 


STA CSFLAG 

5 CSFLAG TOO 


OODO 

32 65CE 


STA DDTON 

?SINGLE STEP 


00D3 •' 

32 65DA 


STA PONOFF 

;PRINT WAIT 


00D6 **’ 

32 65E2 


STA LISTON 

5 CONTROL X TOO 


00D9 •** 

32 &55E 


STA PCNT 

5 FOR NOLA-"S CODE 


OODC" 

3E01 


MVI A,1 



OODE" 

32 649C 


STA IJARTFL 



OOE1 ■- 

3A 649C 


LDA UARTFL 



00E4 

A7 


ANA A 



GOES **’ 

1809 


JMF'R , , OK 



00E7 •" 

2807 


■JRZ , . OK 



00E9-‘ 

AF 


XRA A 



OOEA •" 

32 649C 


STA . UARTFL 



00 ED *■’ 

CD 0468" 


CALL INUART 



OOF 0 *’* 

21 6261 

U M UK “ 

L.X I H, TTYBEG 

5 SETUP TTY BUFFER 


00F3 "' 

22 62E1 


SHLD TTYPTR 



OOF 6*- 

22 62E3 


SHLD TTYINT 



OOF*?**’ 

CD’0000 s 28 


CALL PRINTFF 



OOFC'" 

5E43 


, ASCI Z /"'-C 



OOFE"' 

ODOAOO 

/ 




0101 •" 

FB 


El 



0102' 

21 60CC 

ZGRASSs 

LX I H,ARGSTK 

SLOADUP IY 


0105 

E5 


PUSH H 



0106 

FDE1 


POP Y 



0108" 

21 0000 


LX I H,0 

5 CLEAR MACTOP 


010B" 

22 625E 


SHLD MACTOP 

?FOR KBMIB 


010E" 

21 002A 


LXI H, •"•if"" 



011 1 •" 

22 6577 


SHLD DUMBST 



0114" 

3A 65CB 


LDA DEVFB 



0117 •" 

A7 


ANA A 



011 8-" 

2806 


JRZ .„NOFB 



011A 

21 6577 


LX I H,DUMBST 


01 ID" - 

22 6573 


SHLD V3PTR 



0120 "' 

CD 0000s28 

»,NOFBs 

CALL PRINTFF 



0123"' 

3E00 


.BYTE •">•", 0 

? FORGET THE BEEP 


012.5 "' 

2A 60CA 


LHLD TEMPHDR 

;ZAP ALL TEMPS 


0128"' 

CD 0000s12 


CALL FREEALL 



012B-" 

21 0000 


LX I H,0 

?NULL LIST HEADER 


012E " 

22 60CA 


SHLD TEMPHDR 



0131" 

CD 01A5-" 


CALL DNULLS 

; ZAP ALL $NULL NAME: 

“t 

0134'" 

CD 0139"' 


CALL ZLINEP 

? WAIT FER LINE 


0137" 

18C9 


JMPR ZGRASS 

?THAT'S ALL 


0139" 

21 65F1 

ZLINEPs 

LXI H,KBLOCK 

5 KBM MIB&BUFFER 


013C-" 

CD 0000s18 


CALL KBMIB 



013F-" 

21 660C 


LXI H,KBLOGK+$MIBEND 5 SET BUFFER 

ADDR 

0142" 

CD 0073 •" 

'/LOOPS 

CALL CNTCK 

5 CHECK '"-C 


0145" 

CD 0000s15 


CALL INPTTY 

? GET A LINE 


0148" 

E5 


PUSH H 







TDL 280 
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01.49' 

014A' 

014D- 

0150' 

0151' 

0154' 

0155' 

0156' 

0158' 

015B' 

OISE' 

015F' 

0161' 


0162' 
0163' 
016.4' 
0167' 
016 A - 
016C- 
016F- 
0173- 
0176- 
0177- 
0178" 
017B- 
017E- 
0181 - 
0182- 
0183- 

0184- 
0187- 
0188" 
018A- 
018D- 
018E- 
018F - 
0193" 
0194" 
0196 " 


0197- 
0197- 
0198 - 
0 1 9B' 
019D- 
01 AO - 
01 A3" 


CP/M DISK ASSEMBLER VERSION 2,21 - PAG 

ZGRASS--THIS IS IT, THE VERY BEST PART OF THE TRIP 


F5 


PUSH PSW 


CD 0162 -' 


CALL STUFFCHK 

? SEE IF KEYPAD/CONTROLS 

3A 65CC 


LDA BACKGR 

?BACKGROUND OFF ( A B) 

B7 


QRA A 


CC 0000sOD 


CZ DOCHK 

? DO ANY DOLOOP STUFF 

FI 


POP PSW 


El 


POP H 


20 E A 


JRNZ ZLOOP 

* IF NOT THERE, WAIT 

CD 01 DA •" 

ZGRINS 

CALL LINEP 

;PROCESS IT 

CD 0000s17 


CALL ISTERM 

5 CHECK TERMY 

B7 


ORA A 

"RET IF NULL 

20F7 


JRNZ ZGRIN 

* ELSE PROCEED 

C8 


RZ 

!RETURN 


? STUFFCHK 5 CHECKS 

IF MACRO OR SUBR PENDING 



* FROM KEYPAD OR CONTROL COMMAND 

E5 

STUFF CHh 

::s PUSH H 


D5 


PUSH D 


21 6534 


L..XI H, SUBSTUFF 


CD 0000s22 


CALL NXTPTR 


280C 


JRZ ..MAC 

?NUTTIN TO DO 

01 0000 


LXI B,0 


ED43 6534 


SBCD SUBSTUFF 


01 0178'’ 


LXIB,..MAC 


C5 


PUSH B 

5 RET ADDR 

E9 


PCHL 

;G0 DOIT 

21 6536 

..MACS 

LXI H,MACSTUFF 

;ANY MACRO TO DO 

CD 0000s22 


CALL NXTPTR 


C4 0238 x 


CNZ DOCMD 

SWELL, DO IT THEN! 

D1 


POP D 


El 


POP H 


C9 


RET 



? ttPRCHEK—CHECKS IF CURRENT LINE NEEDS PRLINE 

3A 65E2 

PRCHEK s 

LDA LISTON 


B7 


ORA A 


2000 


JRNZ PRLINE 

3 DO IT 

3A 65CE 


LDA DDTON 


B7 


ORA A 

* DEBUG ON? 

C8 


RZ 


ED4B 625E 


LBCD MACTOP 

3 ONLY IF MACRO 

OA 


LDAX B 


FE22 


CPI $MIBBLK 


CO 


RNZ 

5 SKIP IT 


; *PRL INE”F'RT NTS CURRENT 

LINE OUT* 


» 

'■ ^ v. 

A.K.A. ARGLIN 



ARGLINs 



E5 

PRLINE? 

PUSH H 


CD 0000s13 


CALL GETL.PT 

3 GET THAT LINE 

3E0A 


MVI A,NL 

SPRINT TILL NL OR NULL 

CD 0000327 


CALL PRINTA 


CD 0000s IF 


CALL NLPNT 


El 


POP H 
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5 *DNULLS—ZAPS ALL TNULL NAMES* 
\ " 


01A5 •' 

3E41 

DMULLSs 

MVI A,"A" 


01A7 •' 

F5 

..NCHRs 

PUSH PSW 

5 SAVE CURRENT CHAR 

01 AS” 

CD 0000s10 


CALL FINDHASH 

5 GET FWA 

01AB" 

E5 

..NEXLs 

PUSH H 

5 SAVE POINTER IN IX 

01 AC- 

DDE 1 


POP X 


01AE 

CD 0000s21 

..NEXHs 

CALL NXTLNK 

?GET NEXT 

01B1 •" 

281A 


JRZ ..NEXA 

5 NONE-TRY NEXT LETTER 

01B3-- 

7E 

. .IMEXMS 

MOV A, M 


01B4" 

FE02 


CPI $NUL.L 

?IS IT $NULL? 

01B6-" 

20 F 3 


JRNZ ..MEXL 

“NOPE, CHAIN ON 

01B8-" 

E5 


PUSH H 

•SAVE CURRENT 

01B9 •- 

CD 0000s21 


CALL NXTLNK 

? GET NEXT LINK 

01BC ’* 

DD7503 


MOV TNLIMKC X),L 

?CHAIN OUT 

01BF •- 

DD7404 


MOV $NLINK+1(X), 

H 

01G2" 

El 


POP H 

"GET H BACK 

01C3 •" 

p«^ 


PUSH PSW 

5 SAVE CC-'S FROM NXTLNK 

01C4 •- 

CD 0000s11 


CALL FREE 

? FREE IT UP 

01C7-’ 

DDES 


PUSH X 

5 RESTORE HL 

01C9-' 

El 


POP H 


01C A " 

FI 


POP PSW 

5 WASZERO? 

01CB-" 

20E1 


■JRNZ „ . NEXH 


01 CD” 

FI 

. ..NEXAs 

POP PSW 

5 GET CURRENT LETTER BAC 

01CE" 

FE24 


CPI ; WAS $? 


01 DO" 

ro 


RZ 

5 YUF’-DONE 

01D1 ' 

3C 


INR A 

"A GOES TO B, ETC. 

01D2-' 

FESB 


CPI -z-' + i 


01D4 •" 

20D1 


JRNZ ..NCHR 

5 DO IT 

01D6-' 

3E24 


MVI A, 


01D8" 

18CD 


JMPR ..NCHR 




5 *LINEP, THE LINE PROCE 

:SSOR, FOLLOWS 

01D A " 


LINEPs 

5 CHECK FOR CIMTC 


01 DA 

CD 0073-' 


CALL CNTCK 


01DD" 

CD 0000s13 


CALL GETLPT 

5 GET LINE POINTER 

01EO •" 

CD 0000s16 


CALL ISNL 

?IS END OF COMMAND? 

01E3 '" 

ns 


RZ 

5 YUP, RETURN 

01E4•" 

FE2E 


CPI -' 

S COMMENT? 

01E6-' 

2008 


JRNZ LINOO 

5 NO 

01E8 

CD 0000S2C 

LIN02S 

CALL SCANNL 

5 SKIP TO THE NEXT LINE 

01EB-" 

CD OOOOs2A 

L.IN03S 

CALL PUTLPT 

"AND STUFF HL 

01 EE 

18EA 


JMPR LINEP 

,AND TRY AGAIN 

01F0 " 

CD OOOOsIB 

LI MOO s 

CALL KLB 

;ZAP BLANX 

01F3-" 

CD OOOOs07 


CALL CARTYP 

SCHECK FOR LABEL 




ZERROR ER.CMD 

? NO LEADING PUNCTE: 

01F 6 

2004 

Hh 

JRNZ .„0001 


01F8-' 

CD 03ID-' 

H- 

CALL ERRPGM 


01FB" 

IF 

4, 

„BYTE ER.CMD 


01FC-" 


+ . » 0001s 

1 


01FC" 

3006 


JRNC LINO1 

“ ITS NOT 

01FE 

CD OOOOs2B 


CALL SCANLAB 

? SCAN PAST IT 

0201 "' 

C8 


RZ 

; RETURN IF ~>DELIM 

0202 

18E7 


JMPR LINOS 

SAND TRY AGAIN 
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0204 x 

CD 0184" 

LINOis 

CALL PRCHEK 

?SEE IF LINE WANTS PRINTED 

0207' 

CD 0000s IB 


CALL KLB 

;ZAP LEAD BLANX 

020 A *’ 

CD 0000s IE 


CALL NAMSET 

? DE~>FIRST CHAR, 





5HL->TERMINAT0R 

020 D' 

CD 0000s16 


CALL ISNL 

5 CHECK TERMINATOR 

0210 - 

281C 


JRZ ..CMD 

?IS ?, NL OR NULL 

0212 " 

FE20 


CPI BLANK 

?ISNL LOADS A 

0214-' 

2818 


•JRZ . . CMD 


0216' 

FE2C 


CPI 

”ALLOW COMMAS TOO 

0218' - 

2814 


JRZ ..CMD 


021 A" 

FE2E 


CPI EXTDEL 

5 SWITCH? 

02 ic- 

2810 


JRZ ..CMD 


02 IE-' 

FE28 


CPI •" < •" 

3 ARRAY? 

0220 " 

CC 0000 s 29 


CZ PSCAN 


0223 y 

7E 


MOV A.M 

5 PICKUP CHAR 

0224**' 

FE3D 


cpi •-=-• 

n — CO 

7 ““ • j : 

0226-' 

2002 


JRNZ ..AASM 

3 TRY IT ANYWAY 

0228- 

365F 

. „ OKs 

MVI M.AASN 

5 STUFF A AASN 

022 A-' 

EB 

..AASM s 

XCHG 

5 RESTORE H 

022B -' 

G3 0000 s OF 


JMP EVALARG 


022E **’ 

AF 

..CMDs 

XRA A 

3 TRY SYS NAMES 

022F 

CD 0000 s ID 


CALL NAMADR 

3IFZSET, GOOD 

0232-* 

2804 


JRZ DOCMD 


0234•' 

CD 0316" 


CALL ERRPGX 


0237 -' 

23 


.BYTE ER.NOTF 




? ENTRY 

TO PROCESS ANYTHING GIVEN NAMBLOK ADDR 

(”*) *”•* {•“* '' 

DDES 

DOCMD s 

PUSH X 

3 SAVE X 

023A -' 

FDE5 


PUSH Y 

3 AND Y 

023C -' 

3A 6260 


LDA CSFLAG 

? ONLY STORE SP 

023F -' 

B7 


ORA A 

5 IF GSFLfiG OFF 

0240" 

2012 


JRNZ ..NOCS 

5 DON ' T DO IT 

0242/ 

ED73 625C 


SSPD SAVESP 


0246"' 

DD2A 655B 


LIXO OPRSP 

3 SAVE OP STACK PTR 

024A " 

DD22 653D 


SIXD SOPRSP 

5 FOR ERROR RECOVERY 

024E"' 

3A 655D 


LDA OPRSZ 

3 DITTO FOR SIZE 

0251 -' 

32 653F 


STA SOPRSZ 

5 OF OPR STACK 

0254 •" 

DD21 027B"' 

..NOCSs 

LXI X,RETONE 

3 PUSH RET ADDR 

0258 •" 

DDE5 


PUSH X 


025A"' 

1 A 


LDAX D 

5 GET FWA 

025B-" 

FE18 


CPI &CMDADR 

3 IS COMMAND? 

025.D 

203A 


JRNZ DOMACRO 

3 NOPE, TRY MACROS 

025F"' 

EB 


XCHG'- 

SDE-OTERMINATOR, 

0260-' 

60 


MOV H,B 

5 BC~>F'0INTER TO CODE 

0261 " 

69 


MOV L i C 


0262'- 

CD 0000522 


CALL MXTPTR 

5 GO TO IT 

0265 "' 

EB 


XCHG 

5 DE~>CODE, HL~>TERM 

0266 -' 

D5 


PUSH D 

5DE IS DISPATCH ADDR! 

0267'" 

C9 


RET 

3 GOTO IT, CMDREN STILL TOS 



" ; 

CMDREN—GENERAL 

END OF COMMAND STUFF 



3DETAIL 

O ** ' - . ' 




■ ' ? ; . ' 

DEFAULT RETURN ] 

:S TO RETONE 




WHICH RETURNS 

INTEGER 1 
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RETNONE RETURNS WHATEVER ASdDE HAVE 
CMDSKO SETS UP R#TO REDO CURRENT LINE 
CMDSKP SETS UP TO SKIP REST OF LINE 


0268"’ 

CD 0000s13 

CMDSKO s 

CALL GETLPT 

5 GET OLD LINE PTR 

026B 

2B 


DCX H 

5 BACKUP ONE IF NOT 

026C 

7E 


MOV A,M 

5 FIRST LINE 

026D •' 

B7 


ORA A 

;IE, HL~>NL 

026E •' 

200A 


•JRNZ CMDRES 

? IF HL->NUL.L, 

0270'’ 

23 


INX H 

;FIX IT 

0271 •- 

1807 


JMPR CMDRES 


0273"’ 

CD OOOOii 2C 

CMDSKP s 

CALL SCANNL 

5 ENTER HERE TO SKIP 

0276 "’ 

B7 


ORA A 

? DCX IF NON-NULL 

0277 •' 

2801 


JRZ CMDRES 

? 0 11 n 

0279 "’ 

2B 


DCX H 

;REST OF LINE 

027A-' 

Cl 

CMDRESs 

POP B 

? ENTER HERE TO STRIP 
?OFF RET TO RETONE 

027B •' 

3E04 

RETONEs 

MVI At $1VAL 

5 INTEGER 1 IN DE 

027D f 

11 0001 


LX I DV 1 

?AND FALL THRU 

0280” 

1801 


JMPR CMDREN 


V A. W 

Cl 

RETNONE 

s POP B 

DUMP RET TO RETONE 

0283 ‘ 

F5 

CMDRENs 

PUSH PSW 

5 SAVE A 

0284- 

CD 0000s2A 


CALL PUTLPT 

?STUFF HL INTO TLINPTR 

0287 **’ 

CD 0182-' 


CALL STUFFCHK 

ANYBODY PENDING? 

028A? 

CD 0000sOA 


CALL CORCI-IK 
CERROR ER.corfc 


028D •- 

3004 

4. 

JRNC ..0002 


028F 

CD 03ID-' 

4- 

CALL ERRPGM 


0292 "’ 

IB 

4. 

.BYTE ER.CORF 


0293"’ 


4* „ « 0002 55 

1 


0293 

FI 


POP PSW 

5 RESTORE A 

0294"’ 

FDE1 


POP Y 

5 STILL ON STACK 

0296"’ 

DDE 1 


POP X 

;RESTORE X 

0298"’ 

C9 


RET 




? •a-DOMACRO—MACRO EXECUTION STARTUP* 



u 

•} 

NOT A GOOD ENTRY POINT (STUFF ON STACK 

0299"’ 

CD 0000s2A 

DOMACRO 

s CALL PUTLPT 

5 SAVE CURRENT POINTER 

029C"’ 

E5 


PUSH H 

;SAVE H FOR ARRAYZ 

029D"’ 

62 


MOV H, D 

?POINT HL AT NAMEBLOCK 

029E" 

6B 


MOV L,E 

? LEAVE IN DE FOR ARRAY: 

029F" 

CD 0000 s 23 


CALL NXTVAL 

? GET STRING FWA 

02 A 2' 

7E 


MOV A,M 

;GET TYPE 

02 A3 * 

FE08 


CPI $STRADR 

5 IS STRING? 

02A5 

204E 


JRNZ DOARA 


02A7 

El 


POP H 

5 GET HL BACK 

02A8-" 

DDES 


PUSH X 

5SAVE X 

02 A A / 

7E 


MOV At M 

5 CHECK FER .B 

02 AB •" 

FE2E 


CPI EXTDEL 

US IT? 

02AD'' 

201A 


JRNZ .„FORE 

5 NOPE, REGULAR CALL 

02AF " 

*~* 0 | 


INX H 

" SKIP EXTDEL 

02B0 •" 

23 ■ 


INX H 

SSKIP B 
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;SOR 



02B1 " 

CD 0000 s 1C 


CALL MAKMIB 

?BUILD MIB 

02B4 

ED4B 62E8 


LBCD DOLPLH 

5 GET DOL LISTHEAD 

02B8 •" 

DD710F 


MOV $BGPTR(X >,C 

5 LINK IN 

02BB-' 

DD7010 


MOV $BGPTR+1(X), 

B 

02BE 

DDCB02D6 


SET $DOLOOP, $FLAG8<X> 5 SAY IS DOLQOP-'D 

02C2 

EfEi22 t-2ES 


SIXD DOLPLH 

SLINK US IN 

02C6"' 

DDE 1 


POP X 

* RESTORE X 

02C8 •" 

C9 


RET 

? RETURN SUCCESS 

02C9 ■" 

CD 0000s1C 

..FORES 

CALL MAKMIB 

CALL MIB MAKE ROUTINE 

02CC •" 

CD 000052A 


CALL PUTLPT 

5 SAVE EOL FOR RET TIME 

02CF •" 

ED4B 625E 


LBCD MACTOP 

;GET CURRENT MACRO 

0203 •" 

DD710D 


MOV $CALLER(X),C 

?POINT TO CALLER 

02D6" 

DD700E 


MOV fCALLER+1(X) 

7 B 

02D9 " 

DD22 625E 


SIXB MACTOP 

5MACTOP IS US NOW 

G2BD 

DDE1 


POP X 


02DF - 

F5 


PUSH PSW 

?EXTRA FOR GOSUB COMPATS 

02E0- 


DOMOREs 


5 ENTRY FROM GOSUB 

02EG •" 

CD 01DA-" 


CALL LIMEP 

5 PROCESS LINE 

02E3 •" 

CD pOOOs17 


CALL ISTERM 

5 CHECK TERMY 

02E6 > 

B7 


ORA A 

SCHECK FER NULL 

02E7 ■- 

2007 


•JRNZ . . CZC 

S NOPE 

02E9 "' 

D1 


POP D 

?GOSUB RETURN ( ? ) 

G2EA 

CD OOOOs2E 


CALL SWITCH 

S SWITCHEROO 

02 ED •" 

C3 0282"' 


JMP RETNONE 

SAND PASS A&DE BACK 

G2FG 

CD 0304" 

. . CZCS 

CALL CZCHEK 

5 CHECK DDT?<CMTRLS 

02F3-- 

18EB 


JMPR DOMORE 

SCONTINUE 



y AHVAL. 

WANTS DE->NAMEBLOCK ■> HL->AFTER PAREN 

02F5-" 

El 

DOARAs 

POP H 

5 GET PTR TO ARGS BACK 

02F6" 

FE10 


CPI fAADR 

NZERROR ER.MACC 

5 IS ARRAY 

02F8 '' 

2804 

*+* 

JR Z ..0003 


02FA;" 

CD 03ID"' 

+ 

CALL ERRPGM 


02FD 

22 


.BYTE ER.MAC 


02FE-- 


4* u „ 0003 s 

1 


G2FE 

CD 0000S06 


CALL ARVAL 

5 DO IT 

0301 " 

C3 0282-' 


JMP RETNONE 

5 LEAVE WITH A&DE SETUP 



?*CZ CHEK—CHECKS FOR CONTROL Z AND DEBUG 

03G4 " 

3A 6260 

CZCHEKs 

LDA CSFLAG 


0307-' 

B7 


ORA A 


0308-' 

2006 


JRNZ „ .NOCZ 

! DON'T CHECK DEBUG IF 

030A-' 

3A 65CE 


LDA DDTON 

SIN CNTRLZ ALREADY 

030D •- 

B7 


ORA A 

SIS DEBUG ON? (CNTRLD) 

030E" 

2070 


JRNZ ZSIN 


0310" 

CD 0073-' 

.. . NOCZ s 

CALL CNTCK 

S CHECK-'EM 

0313 " 

206B 


JRNZ ZSIN 


0315"' 

C9 


RET 




? -a-ERROR- 

—ERROR MESSAGE HANDLER CNTLS HANDLER* 

0316"' 

El 

ERRPGX s 

POP H 

S POP CALL RET 

0317-" 

DDES 


PUSH X 
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0319" 

FDE5 


PUSH Y 


03 IB - ' 

1805 


.JMPR ERRFOO 

? KLUDGE FOR L. INEP ERRMESS 

03 ID - ' 

E3 

ERRF’GM! 

XTHL 


03 IE" 

E07B 625C 


LSPD SAVESP 

?FIX STACK UP 

0322" 

ED4B 653D 

ERRFOO! 

LBCD SOPRSP 

5 RESTORE OP STACK 

0326" 

ED43 655B 


SBCD OPRSP 

5 POINTER 

032A" 

3A 653F 


LDA SOPRSZ 

;DITTO FOR STACK 

032D •' 

32 655D 


STA OPRSZ 

? BYTE 

0330" 

7E 


MOV A,M 

5 GET ERROR NUMBER 

0331 " 

F5 


PUSH F’SW 

5 SAVE ERROR NUMBER 

0332“ 

32 672A 


STA OMEBUF+1 

;STORE ERROR NUMBER 

0335“ 

3A 6729 


LDA ONEBUF 

• GET ONERROR FLAG 

0338*“ 

B7 


ORA A 

?IS ZILCH? 

0339“ 

2803 


JRZ ..PRNT 

;yup~normal 

033B “ 

FI 


POP PSW 

5 NOPE, ONERROR TIME 

033C *“ 

1817 


JMPR ..CHK2 


033E *“ 

CD 0197" 

. . PRNT 2 

CALL PRLINE 

5 PRINT LINE IN ERROR 

0341 *“ 

CD 0000s28 


CALL PRINTFF 


0344 *“ 

3F3F4552524F 


.ASCIZ /22ERR0R 

#/ 

034E*“ 

FI 


POP PSW 


034F ’* 

CD 0000!25 


CALL PDECA 

? A HAS ERROR MESSAGE 

0352" 

CD 0000!IF 


CALL NLPNT 


0355" 

ED4B 625E 

..CHK2: 

LBCD MACTOP 

?CHECK IF KB LEVEL 

0359" 

OA 


LDAX B 


035A " 

FE26 


CPI TKEYBLOCK 

5 IS IT? 

035C " 

C3 00A2" 


JMP ABORT 

5 TEMPORARY TILL BELOW WORKS 

035F " 

CA OOA2" 


JZ ABORT 

5 YEAH, ABORT 

0362" 

3A 6260 

t 

t 

r 

LDA CSFLAG 

?IS SECOND TIME THRU? 

0365" 

B7 

ORA A 

;I.E. IS CSFLAG SET? 

0366" 

200C 

t 

JRNZ ..TRY 

5 YUP, DON"T CHANGE PTR 

0368" 

CD 0000i13 

. GLPT! 

CALL GETLPT 

‘GET CURRENT LINE 

036B" 

22 672B 

r 

r 

SHLD QNEBUF+2 

?STORE LINE POINTER 

036E " 

CD OOOOS2C 

CALL SCAMNL 

■TO NEXT ONE 

0371" 

CD 0000!2A 

9 

\ » ..TRY! 

CALL PUTLPT 

* SAVE POINTER 

0374" 

ED7B 625C 

LSPD SAVESP 

?RESTORE STACK 

0378" 

FDE1 


POP Y 


037A" 

DDE 1 

/ 

i 

POP X 

? RET STILL ON STACK 

037C" 

21 01DA" 

i 

LXI H,LINER 

5 FAKE NEW RET 

037F " 

E5 

4 

PUSH H 

5 ONTO STACK 

0380 " 

CD 008D" 

ZSIN! 

CALL ZARCZ 

5 CLEAN UP MIBS IF NECESSARY 

0383 " 

21 6680 


LX I H,CSBLOK 

?BUILD MIB 

0386" 

CD 0000!10 


CALL KBMIB 


0389" 



MVI M,$CSBLOK 

■TAG IT 

038B " 

AF 

..SWINs 

XRA A 

? NULL ON/OFF"S 

038C " 

32 65D9 


STA CNTRLO 

“LIKE THIS 

038F " 

32 65E4 


STA CNTRLZ 

“ZAP CNTRLZ 

0392" 

3A 6729 


LDA ONEBUF 

! ONERROR ON? 

0395 " 

B7 


ORA A 


0396 " 

202B 


JRNZ ..ONDO 

; WELL, DO IT 

0398" 

3E23 


MVI A,"#" 

? PUT OUT HASH 

039A" 

32 6260 


STA CSFLAG 

5SET CSFLAG#0 

039D " 

CD 0000s24 


CALL OUTCH 


OSAO" 

21 66A8 


LXI H, CSBL0K+4-MI BEND ? BUFFER ADDR 

03A3 " 

3600 


MVI M,0 

? NULL COUNT 

03A5 " 

CD 0073" 

. .SWT! 

CALL CNTCK 

? CHECK " - C 
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03 AS 

CD 0000:i5 


CALL INPTTY 

? GET A LINE 

03AB •“ 

20F8 


JRNZ ..SWT 

1 WAIT FER IT 

03AD •' 

23 


INK H 

5 POINT PAST COUNT 

03AE-' 

7E 


MOV A,M 

{"NULL LINE? 

03AF '■ 

B7 


ORA A 


03BO •" 

282C 


•JRZ . . BACK 

? YEP- FAKE RETURN 

03B2 

CD 01DA" 

..SGO* 

CALL LINEP 

5 DO THE DEED 

03B5-" 

CD 0000*17 


CALL ISTERM 

?CHECK TERMY 

03B8 ■' 

B7 


ORA A 


Q3B9' 

20F7 


•JRNZ . . SGO 

5 STUFF LEFT 

03BB-" 

21 66A9 


LX I H,CSBLOK+$MIBEND+1 ?SET LINEPTR 

03BE •" 

CD 0000s2A 


CALL PUTLPT 

?LIKE THIS 

03C1 •" 

18C8 


JMPR . . SUIN- 

5 MORE TO GO 

03C3-" 

32 6260 

..ONDOs 

STA CSFL.AG 

S SET CSFLAG 

03C6 

AF 


XRA A 

?CLEAR ONEBUF 

03C7 

32 6729 


STA ONEBIJF 


03C A 

11 66A9 


LXI D,CSBLOK+$MIBEND+1 

03CD 

21 672D 


LXI H ? ONEBUF+4 


03D0 

01 0008 


LXI B*8 


03D3 

ED BO 


LDIR 


03D5 •- 

CD 01 DA"' 

..0000s 

CALL LINEP 

5 EXECUTE THE LINE 

03D8 

CD 0000*17 


CALL ISTERM 

;DONE? 

03DB- 

B7 


ORA A 


03DC-" 

20F7 


JRNZ ..0000 

5 MORE 

03DE-' 

AF 

..BACKs 

XRA A 

5 CLEAR CSFLAG 

03DF 

32 65E4 


STA CNTRLZ 

5 AND CNTRLZ 

03E2 •- 

32 6260 


STA CSFLAG 

5 SO CAN "'-Z AGAIN 

03E5-- 

C3 0000 s 2E 


JMP SWITCH 

• BACK TO INTERRUPTEE 




5 ^RESTART— 

-SYSTEM RESET 

CODE* 

03E8 •" 


.MAIN, s 



03E8‘" 

F3 

RESTART* 

DI 

5 DISABLE INTERRUPTS 

03E9 * 

31 60C8 

LX I 

SP,STACK 


03EC 

AF 

XRA 

A 

SAND ZAP INMOD 

03 El Ei 

D3F0 

OUT 

OFOH 

S NO WIERD MEMORY PLEA: 

03EF 

D3F1 

OUT 

0F1H 

5 KILL DISC 

03F1 •" 

D30E 

OUT 

INMOD 

ts 

7 a u « 

03F3 

D320 

OUT 

NORML 


03F5 *** 

D32A 

OUT 

2AH 


03F7" 

D308 

OUT 

8 


03F9 -* 

D3F9 

OUT 

0F9H 

5 32-64 INTERNAL 

03FB 

•3EOh 

MVI 

A, OFH 


03FD-" 

D3FA 

OUT 

OF AH 


03FF" 

AF 

XRA 

A 


0400" 

D3FB 

OUT 

OFBH 

S 32-64 WRITE ENABLED 

0402 

3EFF 

MVI 

A,OFFH 


0404 " 

D324 

OUT 

LEDS 

? CLEAR LEDS 

0406 •" 

3E11 

MVI 

A, 11H 

5 0-20K EXTERNAL 

0408 •" 

D3F8 

OUT 

0F8H 


040A 

3E03 

MVI 

A, 3 


040C •" 

D3FF 

OUT 

OFFH 




; HYPE MUSIC 

AMPLITUDE 


040E-" 

3E3F 

MVI 

A,03FH 


0410" 

D322 

OUT 

BSAUD 
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0412-' 

CD 0468" 

CALL 

INUART 



? INITIALIZE 

INTERRUPTS 


0415" 

21 0016" 

LX I 

H,ZGITAB 

0418" 

7C 

MOV 

A, H 


0419-' 

ED47 

ST AI 



04 IB'" 

7D 

MOV 

A, L. 


041C"' 

D30D 

OUT 

INFBK 


04 IE" 

ED5E 

I M2 



0420 *•' 

3EC8 

MV I 

A, 200 

; PROGRAM VERTICAL INTERRUPT 

0422 

D30F 

OUT 

INLIN 


0424- 

3E08 

MV I 

A, 8 


0426" 

D30E 

OUT 

INMOD 

;ENABLE SCREEN IMTS, 





? AND INT EVERY Ml 

042U * 

21 60CA 

LX I 

H,CLEARS 


042B *** 

01 1F35 

LX I 

B, RAMEND-CL.EARS 5 LENGTH OF USER 





? STORAGE 

042E - 

CD 0000S08 

CALL 

CLEARIT 

5 PROPAGATE ZEROES 

0431" 

CD 0480" 

CALL 

INFART 


0434 - 

CD 0000“OB 

CALL 

CORINI 

? STRUCTURE USER MEMORY 

0437- 

CD 0000s14 

CALL 

INIVDR 

; SET UP ONSCREEN TYPING 


« 

NOW 

BUILD INTEGER A-Z ENTRIES/HASH TABLE 

043A- 

3E41 

MV I 

A, "A"' 

;START WITH A 

043C" 

21 62EC 

LX I 

H,FSTINT 

“FIRST INTEGER ADDRESS 

043F •" 

11 0000s 09 

LX I 

D,CMDTAB 

;TABLE OF COMMAND ADDRS 

0442" 

F5 ..RE 

STS PUSH 

PSW 


0443- 

360E 

MV I 

M,$FADR 

5 SET TO IVAL 

0445" 


I NX 

H 


0446"' 

3601 

MV I 

M, 1 

? SIZE IS 1 BLOCK 

0448 


I NX 

H 


0449 

36*UO 

MV I 

M,$NDEL 

5 SET BYTE 2 TO $NDEL 

044B" 

01 0007 

LX I 

B,$NASCI1-2 

5 PUT IN NAME 

044E 

09 

“DAD 

B 


044F- 

77 

MOV 

M, A 

5 LIKE THIS 

0450"' 

01 0005 

LX I 

B,14-$NASCII 

“—>T0 CMD PLACE 

0453" 

09 

DAD 

B 


0454- 

EB 

XCHG 



0455"' 

01 0002 

LX I 

B ? Z 


0458"' 

EDBO 

LOIR 


* COPY CMDTAB ENTRY 

045A" 

EB 

XCHG 


? HL<»DE 

045B "' 

FE24 

CPI 

- $ - 

5 DID $? 

045D- 

2845 

JRZ 

REBDON 

; DONE 

045F- 

3C 

I NR 

A 

* A CHANGESTO B, ETC. 

0460 - 

FE5B 

CPI 

-z-+i 

;DONE? 

0462- 

20 DE 

•JRNZ 

».REST 


0464 ‘ 

3E24 

MV I 

A, 


0466- 

18D A 

■JMPR 

..REST 

? DO * 


5 ROUTINE TC 

INITIALIZE 

ADDON HART 

0468- 

INUARTs 



0468 - 

3EAE 

MV I 

A,OAEH 


046 A " 

D32B 

OUT 

AUARTS 


046C 

3E40 

MV I 

A, 4UH 


046E- 

D32B 

OUT 

AUARTS 
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SSOR 


0470" 

3ECE 

MV I 

A,OCEH 

0472"' 

D32B 

OUT 

AUARTS 

0474" 

3E27 

MV I 

A, 27H 

0476" 

D32B 

OUT 

AUARTS ' 

0478" 

DB2A 

IN 

AIJARTD 

047A" 

DB2A 

IN 

AUARTD 



? SET BAUD RATE AT 2400 

047C" 

3E38 

MV I 

A i 00111OOOB 

047E" 

0323 

OUT 

BAUDSEL 

0480" 

21 64B3 

INFARTs LX I 

H,TAPBUF 

0483 •" 

22 64AF 

SHLD 

TAPCON 

0486" 

22 64B1 

SHLD 

TAPPRO 

0489" 

21 0489" 

..SELF! LXI 

H,..SELF 

0480•" 

3E16 

MVI 

A, 16H 

048E" 

CB74 

BIT 

6, H 

0490" 

2802 

JRZ 

..OLD 

0492" 

3E14 

MVI 

A, 14H 

0494'" 

0321 

..OLDS OUT 

VCTR 

0496" 

C9 

RET 




5 ROUTINE TO 

INITIALIZE DEVICE VARIABLES! 

0497" 

11 6579 

RGBINI! LX I 

P 

D, DEWAR 5 DE=INITI AL DEVICE TABL 

049A " 

21 004C 

L*. 

LX I 

H,INIDEV ? HL=INITIAL VALUES 

0490 •" 

01 001A 

LX I 

B,ENDDEV~INIDEV 

04A0 " 

EDBO 

LDIR 


04 A2" 

FB 

El 


04A3 

09 

RET 


04A4'" 

CD 0497"' 

REBDON: CALL 

RGBINI 

04A7"' 

CD 0000 s 28 

CALL 

PRINTFF 

04 A A"' 

OC 

. BYTE 

CNTRL 

04AB'" 

475241464958 .ASCI 2 /GRAF IX. 

04B1'" 

ODOAOO 

/ 


04B4-" 

C3 00A2"' 

•JMP ABORT ; AMD DO IT 



. END 
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AA&N 

005F 


ABORT 

00A2 

I 

ALLOC 

OOOOs 04 

X 

ARG 

0000505 

X 

ARGLIM 

0197 *“ 

I 

ARGSTK 

60CC 


ARVAL 

OOOOs06 

X 

AUARTD 

002A 


AUARTS 

002B 


BACKGR 

65CC 


BAUDSE 

0023 


BLANK 

0020 


BOTRAM 

6000 


BOTTOM 

64 A9 


BSAUD 

0022 


CARTYP 

OOOOs 07 

X 

CHAR8L 

65DD 


CLEARI 

0000 5 08 

X 

CLEARS 

60 C A 


CMDREN 

0283 ' 

I 

CMD'RES 

027A"' 

I 

CMDSKO 

0268" 

I 

CMDSKP 

0273 -* 

I 

CMDTAB 

0000509 

X 

CNTCK 

0073' 

I 

CNTRL 

OOOC 


CNTRLC 

65CD 


CNTRLO 

65D9 


CNTRLU 

0015 


CNTRLZ 

65E4 


CORCHK 

00005 OA 

X 

CORINI 

00005 OB 

X 

CPLARE 

611C 


CPLSIZ 

0140 


CR 

GOOD 


CSBLOK 

668D 


CSFLAG 

6260 


CURCX 

6814 


CURCY 

6816 


CURREN 

64A5 


CZCHEK 

0304 *“ 

I 

C n CO 

0011 


C.C1 

0012 


C. CX 

OOOB 


C.CY 

GOOD 


C.DP 

0013 


C. ST 

0002 


C. X 

0003 


C. XF 

OOOF 


C. XS 

0007 


C. Y 

0005 


C. YF 

0010 


C. YS 

0009 


DDTOM 

65CE 


DELMIB 

OOOOsoc 

X 

DEVBL 

6589 


DEVCLO 

6579 


DEVCL1 

657B 


DEVCL2 

6570 


DEVCL3 

657F 


DEVCL4 

6581 


DEVCL5 

6583 


DEVCL6 

6585 


DEVCL7 

6587 


DEVFB 

65CB 


DEVHCB 

658F 


DEVMO 

658B 


DEVIMM 

65B7 


DEVNT 

658D 


DEVTNA 

65BB 


DEVTNB 

65BF 


DEVTNC 

65C3 


DEVVA 

65BD 


DEWAR 

6579 


DEVVB 

65C1 


DEVVBL 

6591 


DEV VC 

65 C 5 


DEVVD 

65C9 


DEVVN 

65B9 


DEWS 

65C7 


DEVXCD 

65B3 


DEVYCD 

65B5 


DNULLS 

01A5" 


DOARA 

02F5-" 


DOCHK 

00005OB 

X 

DOCMD 

0238-' 

I 

DOLPLH 

62E8 


DOLPPT 

62EA 


DOMACR 

0299" 


DOMORE 

02E0-* 

I 

DUMBST 

6577 


EDBCNT 

64AD 


EDCCNT 

64A7 


EDLONG 

6812 


EDMODE 

681C 


EDNAME 

64 A1 


EDMCX 

6800 


EDNCY 

68 OE 


EDNEWS 

64A5 


EDOCX 

6808 


EDOCY 

680 A 


EDPM 

6806 


EDPO 

6804 


EDPTRC 

64AB 


EDPTRL 

64A9 


EDSTR 

681A 


ENDDEV 

0066 < 


ERABIT 

0002 


ERRFOO 

0322-' 


ERRPGM 

03 ID-' 

I 

ERRPGX 

0316" 


ER.ARA 

002F 


ER.ARG 

0034 


ER.ASN 

0015 


ER.BOX 

001A 


ER.CHN 

0002 


ER.CMD 

00 IF 


ER.CMV 

0016 


ER.COR 

00 IB 


ER.CTL 

0036 


ER.DEL 

0026 


ER .DIM 

0030 


ER.DIV 

0018 


ER. DP 

0037 


ER.DSK 

0019 


ER.EDT 

0035 


ER.FMT 

0038 


ER.FNF 

001C 


ER „ FOR 

0028 


ER.IMP 

0003 


ER.LAB 

0025 


ER.MAC 

0022 


ER.NAE 

002D 


ER.NAM 

0029 


ER.NEG 

003A 


ER „ NOT 

0023 


ER.NUL 

0039 


ER.NUM 

002B 


ER.NXT 

00 ID 


ER.OFL 

0017 


ER.OPM 

0014 


ER.OVE 

00 IE 


ER.PAR 

002A 


ER.REN 

002C 


ER.RET 

0024 


ER.SEP 

0021 


ER.SNP 

0031 


ER.SPC 

002E 


ER.STK 

0004 


ER.SW 

0032 


ER.TER 

0020 


ER. IJFL 

0033 


ER.ONF 

0027 


EVAL 

00005 OE 

X 

EVALAR 

0000 5 OF 

X 

EXTDEL 

002E 


E.HVAL 

0002 


E.LVAL 

0001 


r~ O T 7 

Cl « C* 1 L 

0005 


E.TYP 

0000 


E. VAL 

0001 


FCNTH 

65D2 


FONT I 

65D3 


FONT J 

65D4 


FCNTK 

65D5 


FCNTL 

65D6 


FCNTV 

65E0 


FCNTY 

65E3 


FINDHA 

0000 s 10 

X 

FIRST 

64A3 


FLAGS 

65CB 


FOREGR 

65D0 


FRAGSI 

0400 


FREE 

OOOOs 11 

X 

FREEAL 

0000512 

X 

FREELS 

65E5 


FSTDOL 

64SC 


F8TIIMT 

62EC 


FWDPTR 

65E7 


GETLPT 

OOOOs13 

X 

MCAREA 

6593 


HORCB 

0009 


INCRO 

65E9 


INFART 

0480 •' 


INFBK 

OOOD 


INIDEV 

004C -' 

I 

INIVDR 

0000 5 14 

X 

INLIN 

OOOF 


INMOD 

OOOE 


INPTTY 

OOOOs15 

X 

INTTAB 

0012 


INUART 

0468"' 


ISNL 

0000516 

X 

ISTERM 

0000517 

X 

JUNK 

6542 


KBLOCK 

65F1 


KBMIB 

0000518 

X 

KEYFLG 

67FF 


KEYPTK 

6533 


KEYTRK 

67F7 


KIL1ST 

007E •" 


KILMIB 

0000519 

X 

KISNL 

000051A 

X 

KLB 

00005 IB 

X 

LEDS 

0024 


LF 

OOOA 


LI MOO 

01FO •" 


LIN01 

0204 •" 


LIN02 

01 E8 "' 


LI NOS 

01EB "' 


L.INEP 

01 DA •" 

I 

LISTON 

65E2 


MACSTU 

6536 


MACTOP 

625E 


MAGIC 

OOOC 


MAKMIB 

OOOOs1C 

X 

MAXFRG 

0040 


MNMX 

65EB 


MPBAV 

0016 


MPMO 

0010 












TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 15 

.MAIN. - ZGRASS—THIS IS If, THE VERY BEST PART OF THE TRIP 


+^+++' SYMBOL table: 

+++++ 


MPNCV 

0015 


MPNV 

0017 

MPTNC 

0013 


MF'VIB 

0014 

NBLKB 

0000 


NBLKM 

0001, 

NLPNT 

0000 s IF 

X 

NMIROU 

006A" 

NUMBUF 

64 A3 


NXTABC 

0000 s 

NXTVAL 

0000“23 

X 

OLDCHR 

64A0 

OLDXY 

65EF 


ONEBUF 

672? 

OPRSTK 

6547 


OPRSZ 

655D 

PONT 

655E 


PDECA 

0000 s 

PONOFF 

65DA 


PRCHEK 

0184"' 

PRINTF 

0000 s 28 

X 

PRINTR 

6540 

PUTLPT 

0000 s 2A 

X 

RAMEND 

7FFF 

REBDON 

04A4" 


RESDDT 

0070-* 

RETONE 

027B 

I 

RGBINI 

0497*** 

RUBOUT 

007F 


SAVESP 

625C 

SCLEAR 

0000 s 2D 

X 

SCNEED 

0004 

SOPRSZ 

653F 


STACK 

60C8 

STUFFG 

0162"' 


SUBSTU 

6534 

TAF'BUF 

64B3 


TAPCON 

64AF 

TEMPHD 

60CA 


TEMPS 

62E5 

TTYBEG 

6261 


TTYEND 

62E1 

TXTWIN 

67E2 


UARTD 

OOEO 

UARTS 

OOE1 


USREND 

65F1 

VCTR 

0021 


VDCHAR 

649'E 

VOICEO 

6563 


WRMODE 

65EE 

Z BEG IN 

0004 


ZGIM2 

0001 

ZGRASS 

0102" 


ZGREND 

68 ID 

ZL..OOP 

0142"' 


ZSIN 

0380"' 

♦ADDRI 

0005 


♦ADDRS 

0009 

♦ANYVA 

p p p' p 


TARGET 

0011 

♦CALLE 

OOOD 


♦CMDAD 

OU18 

♦DATAP 

0007 


♦DOLDE 

0001 

♦END 

001C 


♦FADR 

OOOE 

♦FORPT 

OOOB 


♦FVAL 

0006 

$INPBU 

0018 


♦INPPT 

0016 

♦LENGT 

0001 


♦L.INPT 

0005 

♦MIBEN 

001B 


♦NAMAD 

000A 

♦NDEL 

0080 


♦NLINK 

0003 

♦REPEA 

00 IE 


♦RVSTU 

0013 

♦SLEN 

0006 


♦STRAD 

0008 

♦TYPE 

0000 


♦USE 

0005 

.MAIN. 

03E8"' 

I 

.PROG. 

04B7"' 


MF'TNA 

0011 


■Y MPTNB 

0012 


NAMADR 

0000 S ID 

X 

NAMSET 

0000 s I E 

X 

NEWBOT 

6810 


NL 

OOOA 


NORML 

0020 


NSADDR 

6802 


NXTLNK 

0000 S 21 

X 

NXTF'TR 

0000 s 22 

X 

GLDCUR 

649F 


OLDKEY 

649D 


OF'RL 

0014 


OF'RSP 

655B 


DUTCH 

0000s24 

X 

CUTOFF 

62E7 


PIXVAL 

65ED 


POINTE 

64A7 


PRINT 

0000 S 26 

X 

PR I NT A 

OOOOs27 

X 

PRLINE 

0197" 

I 

PSCAN 

OOOOs 2*9 

X 

RAMSTR 

6900 


RANSHT 

655F 


RESTAR 

03E8-* 

I 

RETNON 

0282 *** 

I 

RMDTMP 

6538 


RUBACK 

0005 


SCANLA 

0000 s 2B 

X 

SCANML 

0000 s 2C 

X 

SCRWIN 

67CD 


SOPRSP 

653D 


STAKTO 

6000 


STRSIZ 

6800 


SWITCH 

0000 s 2E 

X 

TAB 

0009 


TAPPRO 

64 B1 


TBFEND 

6533 


TMF'ARG 

67 AD 


TOP 

6818 


TTYINT 

62E3 


TTYPTR 

62E1 


UARTFL 

649C 


HART IN 

OOOOs 2F 

X 

V3PTR 

6573 


VBLANK 

OOOA 


VDNL.F 

65CF 


VIPLH 

6545 


XPAN1 

0019 


ZAPCZ 

008D "' 


ZGINT 

0000 s 30 

X 

ZGITAB 

0016" 


ZGRIN 

0158 •" 


ZL.INEF* 

0139 "' 


♦AADR 

0010 


♦ADDRF 

0007 


♦ANY 

001 A 


♦ANYNA 

FFFC 


♦BGPTR 

OOOF 


♦BNDL 

0007 


♦CPLBL 

002 A 


♦CSBLO 

0028 


♦DGLOO 

0002 


♦DVAL 

0000 


♦FLAGS 

0002 


♦FORBL 

0024 


♦GOSUB 

001 A 


$ I ADR 

oooc 


♦IVAL 

0004 


♦KEYBL. 

0026 


♦LOCPT 

0009 


♦MIBBL 

0022 


♦NAME 

OOOA 


♦NASCl 

0009 


♦NULL 

0002 


♦NVAL.U 

0005 


♦SAME 

0020 


♦SASCI 

OOOA 


♦STRF'T 

0003 


♦TAF 

0000 


.BLNK, 

0000 s 03 

X 

.DATA. 

0000 # 

X 






